uses crt;
var
a,b,c:integer;
begin
repeat
clrscr;
writeln('======================');
writeln;
writeln('selamat datang di program kalkulator');
writeln;
writeln('ada beberapa pilihan:');
writeln('1.pertambahan');
writeln('2.pengurangan');
writeln('3.pembagian');
writeln('4.perkalian');
writeln('5.keluar');
readln;
writeln('silahkan pilih yank anda ingin kan:');
readln(a);
writeln('======================')
begin
case a of
1:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
if c:=a+b;
writeln('nilai:',c);readln;
end;
2:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
if c:=a-b;
writeln('nilai:',c);readln;
end;
3:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
if c:=a/b;
writeln('nilai:',c);readln;
end;
4:begin
writeln('masukan nilai:');readln(a);
writeln('masukan nilai:');readln(b);
writeln;
if c:=a*b;
writeln('nilai:',c);readln;
end;
writeln;
writeln('terima kasih');
readln;
until a=5
end;
end.
