Дано целое число х и натуральное n. составить алгоритм вычисления значения х в степени n. выполнить трассировку, при х=2, n=3

Var X,N, i:integer;
S:real;
begin 
write('Введите число X: ');
 readln(X);
 write('Введите степень N: ');
 readln(N);
 S:= 1;
 for i:=1 to N do 
S:= S*X; 
writeln('ответ: ', S:0:0);
end.