Домашняя работа (24.04)

Домашняя работа

Program One;

Var Y, N, a, i: integer;

Begin

Writeln ('Vvedite Y, N')

Readln (Y, N);

a:=Y;

While i<=N do Y:=Y*a;

Writeln(Y);

Readln;

end.