menu kalkulator

program menu_kalkulator;
{membuat menu kalkulator}

uses wincrt;
var
pilih, A, B : longint;

begin
clrscr;

       writeln ('Menu Kalkulator');
       writeln ('1. Penjumlahan');
       writeln ('2. Pengurangan');
       writeln ('3. Perkalian');
       writeln ('4. Pembagian');

       write ('Pilih (1 sampai 4) = ');
       read (pilih);

case pilih of
1 : writeln ('Anda memilih penjumlahan');
2 : writeln ('Anda memilih pengurangan');
3 : writeln ('Anda memilih perkalian');
4 : writeln ('Anda memilih pembagian');
else
writeln ('Silakan coba lagi, Nomor yang anda pilih tidak ada dalam pilihan diatas');

end;

               write ('Masukkan nilai = ');
               read (A);
               write ('Masukkan nilai kedua = ');
               read (B);
               
               case pilih of
               1 : writeln ('Hasil = ' ,A + B);
               2 : writeln ('Hasil = ' ,A - B);
               3 : writeln ('Hasil = ' ,A * B);
               4 : writeln ('Hasil = ' ,A / B);
               else
               writeln ('Silakan coba lagi, Nomor yang anda pilih tidak ada dalam pilihan diatas');

               end;
                                                
end.