Составить программу, которая выводит степени тройки с 1-й по 10-ю

var

a: integer;

begin

for a := 1 to 10 do

begin

writeln('3 в степени ', a, ' = ', Exp(a * Ln(3)) : 0: 2);

end;

end.