abs.pas

{Abs.PAS}
{ Пример программы для функции Abs }          
 
Var R : Real;
    I : Integer; 
 
Begin                                         
 R:=Abs(-2.3);       { 2.3 } 
 I:=Abs(-157);       { 157 }   
End.