Penjumlahan dan Pengurangan dengan Pascal

Berikut ini akan dibuat suatu menu proses aritmatika yaitu pengurangan dan penjumlahan.Kalian juga bisa menambahkan proses-proses aritmatika yang lainnya dengan catatan tau rumusnya :p hehehhehehhe.. untuk kodingnya sama aja tinggal copas trus masukin rumus proses aritmatika yang baru.

Ini dia codingnya :

uses crt;

var pil : integer;

procedure tambah;

var a,b,c:integer;

begin

      clrscr;

      write('Masukan nilai a: '); readln(a);

      write('MAsukan nilai b: '); readln(b);

      c := a+b;

      write('Hasil Penjumlahannya Adalah ',c);

      readln;

      end;

procedure kurang;

var a,b,c:integer;

begin

      clrscr;

      write('Masukan nilai a: '); readln(a);

      write('MAsukan nilai b: '); readln(b);

      c:= a - b;

      write('Hasil Pengurangannya Adalah ',c);

      readln;

end;

begin

      clrscr;

      writeln('-----MENU-----');

      writeln('--------------');

      writeln(' 1.PENJUMLAHAN');

      writeln(' 2.PENGURANGAN');

      writeln('--------------');

      writeln('Pilihan Anda: ');

      readln(pil);

      case pil of

       1: tambah;

       2: kurang;

      end;

      clrscr;

      if pil > 2 then

      writeln('Bedon Lo!!');

      readln;

end.                      

Nah, outputnya kaya begini :

Jika memilih nomor 1 maka program yang dijalankan adalah proses penjumlahan 

Jika memilih nomor 2 maka program yang dijalankan adalah pengurangan

Jika memilih lebih dari 2 pilihan yang ada maka akan tercetak :