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

var a:real;i:integer;beginwriteln ('Введите стоимость 1 кг. конфет:');readln (a);for i:= 1 to 10 dowriteln (i*a);end.