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

Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.

Using System;
public class Test
{
public static void Main()
{
double a,b,c,D;
Console.WriteLine("программа для решения квадратного уравнения вида ax^2+bx+c=0");
Console.Write("введите a: a=");
a=double.Parse(Console.ReadLine());
Console.Write("введите b: b=");
b=double.Parse(Console.ReadLine());
Console.Write("введите c: c=");
c=double.Parse(Console.ReadLine());
Console.WriteLine("решаем уравнение:");
Console.WriteLine(a+"*x^2+("+b+")*x+("+c+")=0");
D=b*b-4*a*c;
Console.WriteLine("D="+b*b+"-"+"("+4*a*c+")="+D);
if (D<0){ Console.Write("D<0 => нет действительных корней");} else if (D>0)
{
Console.WriteLine("D>0 => уравнение имеет 2 действительных корня");
Console.WriteLine("x1="+(-b+Math.Sqrt(D))/(2*a));
Console.WriteLine("x2="+(-b-Math.Sqrt(D))/(2*a));
} else{
Console.WriteLine("D=0 => уравнение имеет 2 совпадающих корня");
Console.WriteLine("x1=x2="+(-b/(2*a)));
}
}
}

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 6, m=7;
double a[n][m];
double r[m];
double s;

srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < m; j++){
a[i][j]=-20 + (50.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << setprecision (2) << a[i][j];
 }
cout <<endl;
}
for (int j = 0; j < m; j++){
 s = 0;
 for (int i = 0; i < n; i++) s+= a[i][j];
 r[j]=s/n;
 }
cout << "Полученный массив" <<endl;
for (int j = 0; j < m; j++)
cout << fixed << setw (7) << r[j];
 cout << endl;
}

Пример:
 -10.07  28.55  13.71   8.49  -4.06 -16.79  10.86
  -7.52  14.32  -5.13 -16.24  -0.26  16.80  -0.82
  11.68 -13.75   4.24  24.31   6.79 -13.02  23.65
  25.39  -8.77  -3.21  18.42  -2.37  -1.41  -9.80
  25.09  29.06 -17.98 -14.98  27.61  15.73  13.51
  -6.44  18.95  -5.63   6.03   3.27   9.24   9.79
Полученный массив
   6.35  11.39  -2.33   4.34   5.16   1.76   7.86