var
cost,kg:real;
begin
kg:= 0.01;
read(cost);
while ( kg <= 0.1) do begin
writeln(kg,' кг груш = ', kg*cost,' руб.');
kg := kg + 0.01;
end;
end.
