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

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.