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.