THE CALCULATE

USES WINCRT; var a,c,d : integer; operator, z:char; begin repeat clrscr; Writeln('PETUNJUK:'); Writeln('1. Masukkan angka pertama'); Writeln('2. Masukkan operator (+, -, /, *)'); Writeln('3. Masukkan Angka kedua'); Writeln('PERHITUNGAN: '); Write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operator); write('Angka ke dua: '); readln(c); case operator of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); writeln; Write('Hitung lagi? (y/n) '); readln(z); until Upcase(z) <> 'Y'; end.