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

program zz1;

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

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

begin

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

read(x);

for i:=1 to 10 do

begin

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

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

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

end;

end.