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.
    Так? По тести)