Дано вещественное число - цена 1 кг конфет. вывести стоимость 1, 2 ..., 10кг конфет

program zz1;

var i:integer; // вводим переменную целого типа

x, s:real; // вводим переменные вещественного типа

begin

write(' введите цену одного килограмма конфет '); // вводим с клавиатуры вещественное число

read(x);

for i:=1 to 10 do

begin

s:=i * x; // вычисляем стоимость конфет

// выводим ответ в формате пять знаков для числа и два знака после точки

writeln(' стоимость ', i, ' килограмма конфет = ', s:5:2 );

end;

end.