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

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