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

var x,n,i,t,k:integer;beginread(x,n);t:=0;k:=1;while t<n dobegink:=k*x;inc(t); //t:=t+1end;end.Вроде так.