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 = '); ...