Wartość bezwzględna
Liczbę podaje użytkownik, a następnie program wylicza wartość.
Kompilator: Turbo Pascal
Program bezwzgl;
uses crt;
var a : Real;
begin
clrscr;
write('Podaj liczbe a: ');
read (a);
if a>=0 THEN a:=a else a:=-a;
write('A wynosi: ',a);
readkey;
end.