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