var
   a:real;

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