program pascal bilangan berpangkat

Program Bilangan_Berpangkat;
uses crt;
var a,b,c:real;
begin clrscr;
writeln('Program Bilangan Berpangkat');writeln;writeln;
writeln('Petunjuk Penggunaan Program:');
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;
writeln(a:1:13,' pangkat ',b:1:13,'/',c:1:13,' = ', exp(b/c*ln(a)):1:13);
end else
if a=2 then
begin
write('berapa bilangan yang akan dipangkatkan? '); readln(a);
write(a:14:13,' pangkat berapa? '); readln(b);writeln;
writeln(a:1:13,' pangkat ',b:1:13,' = ',exp(b*ln(a)):1:13);
end else
writeln('Maaf Anda Menyalahi Prosedur Yang Telah Ditetapkan');
readln end.