Дано целое число Х и натуральное N. Составьте алгоритм вычисления Х^n. Напишите программу на Паскале.
var s,x,n,i:integer;
Begin
read(x,n);
s:=1;
for i:= 1 to n do
s:=s*x;
writeln(s);
End.