Membuat Kaukulator Pascal Sederhana

Saya Akan membagikan coding kaukulator sederhana pascal menggunakan procedure melanjutkan posting sebelumnya yang telah hilang.
berikut source codenya.

program kaukulator;
uses crt;
var
     a, b:real;

     begin
             procedure penjum;
             var 
                  hasil : real; 
                  begin
                          writeln('Penjumlahan');
                          write('Masukan Bilangan pertama : '); readln(a);
                          write('Masukan Bilangan kedua : '); readln(b);
                          writeln;
                         hasil:= a + b;
                          writeln('Hasil : ,hasil:2:2);
                          readln;
                 end;
                  
             procedure kali;
             var 
                  hasil : real; 
                  begin
                          writeln('Perkalian');
                          write('Masukan Bilangan pertama : '); readln(a);
                          write('Masukan Bilangan kedua : '); readln(b);
                          writeln;
                         hasil:= a * b;
                          writeln('Hasil : ,hasil:2:2);
                         readln;

                 end;
                  procedure bagi;
             var 
                  hasil : real; 
                  begin
                          writeln('Pembagian');
                          write('Masukan Bilangan pertama : '); readln(a);
                          write('Masukan Bilangan kedua : '); readln(b);
                          writeln;
                         hasil:= a / b;
                          writeln('Hasil : ,hasil:2:2);
                          readln;
                  end;

 {Program Utama}
begin
clrscr;
writeln('Pilih Salah Satu : ');
writeln;
writeln('========> 1. Penjumlahan');
writeln('========> 2. Perkalian');
writeln('========> 3. Pembagian');
writeln;
write('Masukan Salah Satu Pilihan di Atas : '); readln(pilih);

if pilih = 1 then penjum
else
if pilih = 2 then kali
else
if pilih = 3 then bagi
else
write('Maaf yang anda masukan tak ada dalam pilihan');
end;

end.