program obliczanie_potegi;
uses crt;
var
 a:real;
 n:word;
function power(x:real; i:word):real;
 var
  y:real;
  j:word;
 begin
  if (x=0) and (i=0) then
   begin
    writeln(' symbol nieoznaczony 0 do 0');
    halt;
    repeat until keypressed
    end;
  y:=1;
  for j:=1 to i do y:=y*x;
  power:=y
 end; {power}
begin {program staaart}
 clrscr;
 writeln('licze a do potegi n');
 write('a='); readln(a);
 write('n='); readln(n);
 write('a do n=',power(a,n):0 :3);
 readln()
end.