Используя цикл for возвести число 3 в степень введенную пользователем.

var m,s,b,a:integer;

begin

writeln ('Введите степень:');

read (m);

b:=3;

s:=1;

for a:=1 to m do begin

s:=s*b;

end;

writeln('3 в степени ',m,': ',s);  

end.