ClubPoker-DNA

uses wincrt;

var

a,b,x:integer;

kali,jml:longint;

bagi:real;

begin

writeln('Menu Kalkulator');

writeln('1.Perkalian');

writeln('2.Pembagian');

writeln('3.Penjumlahan');

write('Masukkan menu pilihan anda: ');readln(x);

case x of

1:begin

clrscr;

write('Masukkan a: ');

readln(a);

write('Masukkan b: ');

readln(b);

kali:=(a*b);

writeln('Hasil kali= ',kali);

end;

2:begin

clrscr;

write('Masukkan a: ');readln(a);

write('Masukkan b: ');readln(b);

bagi:=a div b;

writeln('Hasil bagi= ',bagi);

end;

3:begin

clrscr;

write('Masukkan a: ');readln(a);

write('Masukkan b: ');readln(b);

jml:=a+b;

writeln('Jumlah= ',jml);

end;

else

writeln('Maaf input Anda tidak tersedia dalam Menu');

end;

end.