Anonymous

program obliczanie_potegi;

//Program oblicza potege z podanych przez uzytkownika danych czyli podstawy a i wykladnika n
//by Tony

uses Crt;
var
  x,a,n,wynik : Integer;
begin
  clrscr;
  write ('Podaj podstawe potegi a= ');
  readln (a);
  write ('Podaj wykladnik potegi n= ');
  readln (n);
  wynik := 1;
  if n > 0 then
  begin
    for x:=1 to n do
       wynik:=wynik*a;
  end;
  writeln (wynik);
  readln;
end.