Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет — Pascal(Паскаль)

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.