uses crt;
var
a,b,c:integer;
begin
textcolour(11);
repeat
writeln('==================');
writeln;
writeln('selamt datang di program kalkulator');
writeln;
writeln('ada beberapa contoh:');
writeln('1.pertambahan');
writeln('2.pengurangan');
writeln('3.perkalian');
writeln('4.pembagian');
writeln('5.keluar');
readln;
writeln('==================');
readln;
writeln('silahkan pilih');
readln(a);
writeln;
case a of
1:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:' );readln(b);
writeln;
if c:=a+b;
writeln('hasil:',c);readln;
end;
2:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a-b;
writeln('hasil:',c);readln;
end;
3:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a*b;
writeln('hasil:',c);readln;
end;
4:begin
writeln('masukan bilangan:');readln(a);
writeln('masukan bilangan:');readln(b);
writeln;
if c:=a/b;
writeln('hasil:',c);readln;
end;
begin
writeln('terima kasih');
readln;
until a=5
end;
end.
