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

Var x,n,i,t,k:integer;
begin
read(x,n);
t:=0;
k:=1;
while t<n do
begin
k:=k*x;
inc(t); //t:=t+1
end;
end.

Вроде так.