Дано вещественное число - цена 1 открытки. Вывести в столбик стоимость 1, 2, 3,..,10 открыток.

var a:real; //стоимость 1 открытки

i:real; // кол-во открыток

begin

write('введите цену 1 открытки a=');

read(a);

for i:=1 to 10 do

writeln(i/10:0:1,' открытки стоят ',i*a/10:0:2)