round.pas

 {Round.PAS}
 
 { Пример программы для функции Round }
 
 Begin
  WriteLn(1.4, ' округленно = ', Round(1.4));
  WriteLn(1.5, ' округленно = ', Round(1.5));
  WriteLn(-1.4, ' округленно = ', Round(-1.4));
  WriteLn(-1.5, ' округленно = ', Round(-1.5));
 End.