напишите программу для вычисления n-ной степени числа х. вычисления описать вкаждым из трех вариантов оператора цикла

program zz1;

var a, n, x, i:integer; / / задаем переменные целого типа

begin

write ('введите первое число '); / / вводим с клавиатуры первое число

read (n);

write ('введите второе число '); / / вводим с клавиатуры второе число

read (x);

a:=1;

for i:=1 to n do

a: = a * x;

writeln (x, ' в степени ', n, ' = ', a);

a:=1;

i:=1;

while i < = n do

begin

a: = a * x;

i:=i + 1;

end;

writeln (x, ' в степени ', n, ' = ', a);

a:=1;

i:=0;

repeat

i:=i + 1;

a: = a * x;

until i = n;

writeln (x, ' в степени ', n, ' = ', a);

end.