Составить программу, которая выводит на экран значение выражения 3 в ступени n -натуральное число, которое вводится с клавиатуры.

uses crt;
var x,n,res:longint; 
begin 
clrscr; 
write (' vvedite chislo: ');
readln (x);  
res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.