Дано вещественное число - цена 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.