@traaa_p | Aritmatika withfunction case of

program matematika_bil_bulat;
uses crt;
var bil1, bil2, hasil : Integer;
    pil : char;
    op : String;
begin
  clrscr;
  WriteLn('=================================');
  WriteLn('Operasi Matematika Bilangan Bulat');
  WriteLn('=================================');
  WriteLn('1. penjumlahan dengan +');
  WriteLn('2. pengurangan dengan -');
  WriteLn('3. perkalian dengan *');
  WriteLn('4. pembagian dengan DIV');
  WriteLn('5. sisa hasil bagu drngan MOD');
  Write('Masukkan Bilangan pertama : ');readln(bil1);
  Write('Masukkan Bilangan kedua : ');readln(bil2);
  Write('Masukkan Operator Matematika [ 1 | 2 | 3 | 4 | 5]:');readln(pil);

  clrscr;
  case pil of
  '1' : begin
          hasil := bil1 + bil2;
          op := '+';
        end;
  '2' : begin
          hasil := bil1 - bil2;
          op := '-';
        end;
   '3' : begin
          hasil := bil1 * bil2;
          op := '*';
        end;
   '4' : begin
          hasil := bil1 DIV bil2;
          op := 'DIV';
        end;
   '5' : begin
          hasil := bil1 MOD bil2;
          op := 'MOD';
        end;
    else writeln('Pilihan yang anda masukkan salah');
    end;
    writeln(bil1,' ',op,' ',bil2,' = ',hasil);
    readln;
end.