Ответ(ы) на вопрос:
ГостьДержи и удачи!
Uses crt;
Var a,n,i:integer;
Begin
readln(a,n);
for i:=1 to n do a:=a*a;
writeln(a);
End.
Не нашли ответ?
Похожие вопросы
ГостьГость