program kalkulator;
uses crt;
var
a,b,c,p:integer;
u:char;
begin
repeat
clrscr;
writeln('======== [Program Kalkulator] ========');
writeln;
writeln('===== Pilih Salah Satu Operasi =====');
writeln;
writeln('1.penjumlahan');
writeln('2.pengurangan');
writeln('3.perkalian');
writeln('4.pembagian');
writeln('======================================');
write('pilih operasi : ');readln(p);
writeln('======================================');
if p=1 then
begin
write('masukkan angka pertama : ');readln(a);
write('masukkan angka kedua : ');readln(b);
c:=a+b;
write('hasil : ',c);
end
else
if p=2 then
begin
write('masukkan angka pertama : ');readln(a);
write('masukkan angka kedua : ');readln(b);
c:=a-b;
write('hasil : ',c);
end
else
if p=3 then
begin
write('masukkan angka pertama : ');readln(a);
write('masukkan angka kedua : ');readln(b);
c:=a*b;
write('hasil : ',c);
end
else
if p=4 then
begin
write('masukkan angka pertama : ');readln(a);
write('masukkan angka kedua : ');readln(b);
c:=a div b;
write('hasil : ',c);
end;
writeln;
readln;
write('mau ulang lagi ? [Y/T]:');readln(u);
until upcase(u) <> 'Y';
end.