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