PROGRAM Potenz(INPUT,OUTPUT);¢¢(* Das Programm berechnet Potenzen.¢ Alle Eingaben sind als ganze Zahlen¢ zu machen.*)¢¢VAR a,b,c:INTEGER;¢¢FUNCTION Pot(Basis,Potenz:INTEGER):INTEGER;¢¢VAR Zaehler,Produkt:INTEGER;¢¢BEGIN¢ Produkt:=1;¢ FOR Zaehler:=1 to Potenz DO¢ Produkt:=Produkt*Basis;¢ Pot:=Produkt¢END;¢¢BEGIN¢ WRITELN('Eingabe der Basis...');¢ READLN(a);¢ WRITELN('Eingabe der Potenz...');¢ READLN(b);¢ C:=POT(a,b);¢ WRITELN('Das Ergebnis ist:',c);¢END.¢
