Program shkolnik;
uses crt;
var i,x:integer; 
begin
clrscr;
x:=1;
writeln('3 в степени 0 = ',x);
for i:=1 to 10 do 
begin
  x:=3*x;
  writeln('3 в степени ',i,' = ', x);
end;
readln;
end.