MENU KALKULATOR

Program Menu_Kalkulator;
uses wincrt;
var
a,b,x:integer;
jml,kurang,kali:longint;
begin
gotoxy(35:20); writeln('Selamat DAtang di Menu Kalkulator');
writeln('1. Penjumlahan');
writeln('2. Pengurangan');
writeln('3. Perkalian');
gotoxy(35:20); write('Input Menu yang Anda pilih : '); readln(x);

case x of
1:begin
clrscr;
write('masukkan a : '); readln(a);
write('masukkan b : '); readln(b);
jml:=(a+b);
writeln('Jumlah = ',jml);
end;
2:begin
clrscr;
write('masukkan a : '); readln(a);
write('masukkan b : '); readln(b);
kurang:=(a-b);
writeln('hasil Pengurangan = ',kurang);
end;
3:begin
clrscr;
write('masukkan a : '); readln(a);
write('masukkan b : '); readln(b);
kali:=(a*b);
writeln('hasil kali = ',kali);
end;
end;
end.