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

varx, n, ans:integer;beginReadln(x, n);while (n > 0) dobeginans := ans + x;n:= n - 1;end;Writeln(ans);end.