program kalkulator di pascal

contoh sederhana program pasacal sederhana dengan menggunakan procedure

uses    crt;
var a,b,c:integer;
        pilihan:string;
procedure       perkalian;
begin
        writeln('masukan angka: ');
        readln(a);
        writeln('masukan angka: ');
        readln(b);

        c:=a*b;
        write('= ',c);
        writeln();
end;
procedure       pangkat;
var     i,n:integer;
begin
        write('masukan angka: ');
        readln(a);
        write('masukan pangkatnya: ');
        readln(b);
        c:=1;

        for i:= 1 to b do
        begin
                c:=c*a;

        end;
        writeln(c);
end;

procedure       faktor;
var     h,i:integer;
begin
        write('masukan angka: ');
        readln(a);
        h:=1;
        for i:= 1 to a do
        begin
                h:=i*h;
                writeln(h);
        end;

end;
begin
        clrscr;
        writeln('A: pilihan perkalian');
        writeln('B: pilihan pangkat');
        writeln('C: pilihan faktorial');
        readln(pilihan);
        if pilihan='A' then perkalian
        else
        if pilihan='B' then pangkat
        else
        if pilihan ='C' then faktor;
        readkey();
end.