Дано целое число х и натуральное число n. составьте алгоритм и напишите программу вычисления х^n

Var x,n,i,s: integer;
begin
read(x,n);
s:=x;
for i:=1 to n-1 do x:=x*s;
writeln(x);
end.