Нужно возвести число(любое) в четную степень 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.
Так? По тести)