Дано вещественное число "а". Вывести все степени числа "а" от 1 до 10.

program zz1;

var i:integer; a, p:real;

begin

read (a); / /вводим заданное число a

p:=1; / / задаем начальное значение получаемой степени

for i:=1 to 10 do / /умножаем а на р 10 раз

begin

p:=p*a;

write (p,' '); / /каждый раз выводим полученную степень на экран через пробел

end;

end.