Program Pascal Himpunan

Selain cobol saya mempunyai beberapa kodingan program pascal untuk membuat himpunan.
Tidak jauh berbeda dengan cobol kodingan pascal jauh lebih gampang dibandingkan dengan cobol,sehingga pascal lebih banyak dipakai dan di gunakan oleh programer. Dalam pascal tidak harus kita menjabarkan secara mendetail. Kita hanya cukup mendeklarasikan pada bagian atas dan seterusnya bisa dipakai berulang kali,beda halnya dengan cobol,program itu harus di deklrasikan terlebih dulu keseluruhan baru bisa kita gunakan.
Ini salah satu contoh kodingan program pascal membuat himpunan ::

uses crt;
var
a,b:array [1..5] of integer;
l,k,c:integer;
begin
     clrscr;
     Writeln('Program Mencari Irisan pada Himpunan A dan B');
     for k:=1 to 4 do
         Begin
              Write('Masukkan anggota himpunan A yang ke ',k,' ');
              Readln(a[k]);
         End;
         Writeln;
     for l :=1 to 3 do
              Begin
              Write('Masukkan anggota himpunan B yang ke ',l,' ');
              Readln(b[l]);
         End;
     Writeln;
     Write('A irisan B = ');
         For k := 1 to 4 do
             For l := 1 to 3 do
                 If a[k] = b[l] then  
                    Begin
                         c:= a[k];
                         write(c:2);
                    End;
         Readln;
 End.

Mudahhh kan,jangan lupa di praktekan ya di rumah...
Selamat mencoba !!!!!