program For5;
var
price:real;
i:integer;
temp:real;
begin
temp:=0.1;
write('Введите цену за килограмм:');
readln(price);
for i:=1 to 10 do
begin
writeln('Сумма за ',temp,' кг = ',(temp*price):3:3);
temp:=temp+0.1;
end;
end.