program ukol6;
var
   sazba:integer;
   d:real;
begin
     write('Zadejte ujetou vzdalenost: ');
     readln(d);

     if d<0 then begin
      writeln('Spatne zadani');
      exit;
     end;

    case trunc(d) of
      0..19 :sazba:=25;
      20..39:sazba:=23;
      40..59:sazba:=20;
     else sazba:=17;
    end;

     writeln('------------------------------');
     writeln;
     writeln('Za ',d:0:2,' km zaplatite: ',(d*sazba):0:2,' Kc');
end.