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)
