Надо написать две программы на языке паскаль. одну с циклом while, а вторую с циклом for. k=a^n (a в степени n). для программы цилка for нарисовать блок-схему.

дано: a, n
найти: k

1.

var a,n,k,i:integer;

begin

write('Введите основание степени (целое число) ');

readln(a);

write('Введите показатель степени (целое число) ');

readln(n);

k:=1;

i:=0;

while i < n do

begin

k:=k*a;

i:=i+1

end;

writeln(a,'^',n,' = ',k)

end.

2.

var a,n,k,i:integer;

begin

write('Введите основание степени (целое число) ');

readln(a);

write('Введите показатель степени (целое число) ');

readln(n);

k:=1;

for i:= 1 to n do k:=k*a;

writeln(a,'^',n,' = ',k)

end.