program Project17;
{$APPTYPE CONSOLE}
var kg:real;f:integer;
begin
f:=1;
writeln('Funty | Kilogramy');
writeln('-----------------');
while f<=30 do begin
kg:=2.5*f;
if f<10 then begin
writeln(f,'     |',kg:1:1);f:=f+3;end;
if f>9 then begin
writeln(f,'    |',kg:1:1);f:=f+3;end;end;
readln;
end.