PASCAL!!!
нужно возвести число(любое) в ЧЕТНУЮ СТЕПЕНЬ n количество раз.
например число 2 возводим в четные степень
2 в 2=4
2 в 4 =16
2 в 6=64
и тд.

var a,n,i,ans:integer;begin               readln(a);               readln(n);               i:=0;               ans:=1;               while(i<n) do               begin                             ans:=ans*a*a;                             inc(i);                             writeln(ans);                end;end.Так? По тести)