program bilangan_pangkat;
uses crt;
var
a,b : integer;
hasil : real;
YN : char;
function pangkat(x:integer):real;
begin
hasil := exp(x*ln(a));
pangkat := hasil;
end;
label batas;
begin
batas:
clrscr;
writeln('==========================');
writeln('| MARI BERHITUNG |');
writeln('==========================');
write('Masukkan Mau dipangkatkan berapa ?');
for a := 1 to 10 do
writeln('hasil dari ',a, '^',b, '=',pangkat(b):2:0);
write('MAU COBA LAGI Y/N ? ');readln(Y/N);
if upcase (YN) = 'Y' then
goto batas;
readln;
end.