Program Pascal Bilangan Berpangkat

Program Bilangan_Berpangkat;
uses crt;
var a,b,c:longint;
begin clrscr;
writeln('Program Bilangan Berpangkat');
writeln('tekan 1 jika pangkat dalam bentuk pecahan');
writeln('tekan 2 jika pangkat dalam bentuk bilangan bulat');
write('jawab: '); readln(a); writeln;
if a=1 then
begin
write('berapa bilangan yang akan dipangkatkan? '); readln(a);
write('berapa pembilang dari pangkat? '); readln(b);
write('berapa penyebut dari pangkat? '); readln(c);
writeln(a,' pangkat ',b,'/',c,' = ', exp(b/c*ln(a)):13:13);
end else
if a=2 then
begin
write('berapa bilangan yang akan dipangkatkan? '); readln(a);
write(a,' pangkat berapa? '); readln(b);
writeln(a,' pangkat ',b,' = ',exp(b*ln(a)):13:13);
end else
writeln('Maaf Anda Menyalahi Prosedur Yang Telah Ditetapkan');
readln end.