В программу вводится стоимость 1 кг. конфет, написать программу, с помощью оператора FOR которая выводит на экран стоимость 1,2,3,4,5,6,7,8,9,10 кг. конфет)

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.