var
   a:real;

begin
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     write('Zadej desetinne cislo: '); readln(a);
     a:=abs(a);
     writeln('Absolutni hodnota je: ',a:2:1);
     readln;
end.
