var i: integer; a: real;
begin
write('Введите цену 1 кг конфет: ');
read (A);
for i:= 1 to 10 do
write (a*i:8:2);
end.