Code pascal (Penjumblahan, Pengurangan, Perkalian, Pembagian)

Kali ini saya akan memberikan kode sederhana pemrograman pascal.
cara memasukkannya ke aplikasi free pascal :
1- Buka notepad
2- Copas code dibawah ini: Awal

Klik show untuk melihat

uses crt;
var a,b,c,d,e:integer;
    pil:char;
    x,y:integer;
label salah,awal,akhir;
procedure Tambah(var p,k,h:integer);
begin
  h:=p+k;
  writeln('Hasil Penjumblahan: ',h);
  readln;
end;

procedure Kurang(var p,k,h:integer);
begin
  h:=p-k;
  writeln('Hasil Pengurangan: ',h);
  readln;
end;

procedure Kali(var p,k,h:integer);
begin
  h:=p*k;
  writeln('Hasil Perkalian: ',h);
  readln;
end;
procedure bagi(var p,k:integer;h:real);
begin
  h:=p/k;
  writeln('Hasil Perkalian: ',h:1:2);
  readln;
end;

begin
  awal:clrscr;
  writeln('1.Penjumblahan');
 writeln('=============================');
  writeln('2.Pengurangan');
 writeln('=============================');
  writeln('3.Perkalian');
 writeln('=============================');
  writeln('4.Pembagian');
 writeln('=============================');
  write('Masukkan Pilihan Anda [1,2,3,4]:');readln(a);
  if(a=1)then
  begin
       write('Masukkan Angka Pertama:');readln(b);
       write('Masukkan Angka Kedua  :');readln(c);
       Tambah(b,c,e);
  end;
  if(a=2)then
  begin
       write('Masukkan Angka Pertama:');readln(b);
       write('Masukkan Angka Kedua  :');readln(c);
       Kurang(b,c,e);
  end;
  if(a=3)then
  begin
       write('Masukkan Angka Pertama:');readln(b);
       write('Masukkan Angka Kedua  :');readln(c);
       Kali(b,c,e);
  end;
  if(a=4)then
  begin
       write('Masukkan Angka Pertama:');readln(b);
       write('Masukkan Angka Kedua  :');readln(c);
       bagi(b,c,e);
    end;
    if(a>5)then begin write('Pilih Antara 1 Sampai 4 Saja!'); end;
salah:begin
writeln;writeln;writeln;writeln;
write(' INGIN MENGULANG LAGI ?(Y/N)');readln(pil);
if (pil='y') or (pil='Y') then goto awal;
if (pil='n') or (pil='N') then goto akhir
else writeln(' PILIHAN HANYA Y / N ');goto salah;
akhir:end;
end.

 akhir
3- Simpan file dengan format ".pas". contoh: cal.pas

4- Ubah save as type menjadi 'all files'
5- Simpan file dimana kalian menginstall app free pascal
    Directori default: C:\FPC\2.6.4\bin\i386-win32.
6- Setelah tersimpan buka app free pascal dan jalankan file tadi!


Hasilnya Akan Menjadi Seperti Ini: