1. Bilangan Mutlak

program bilangan_mutlak;
uses crt;
var
   x:real;
begin
clrscr;
write('masukkan bilangannya: ');
readln(x);
if x<0 then
   x:= -x;
writeln('bilangannya adalah ',x:2:2);
readln;
end.