В программку вводится цена 1 кг. конфет,написать программу,с поддержкою оператора FOR

var
   a: real;      // переменная для хранения стоимости 1 кг. конфет
   i: integer;  // переменная для хранения количества килограмм
begin
  write(Введите стоимость 1 кг конфет: ); // вывод строчки на экран
  readln(a);         // считываем цена 1 кг. конфет
  for i:=1 to 10 do // цикл 
    begin
       writeln(Цена , i, кг. конфет = , a * i , руб.); // вывод на экран стоимость i кг конфет
    end
end.