Contoh program Pascal

1.Program Factorial

program xyz;
uses crt;

var n, i, hasil:integer;
function fac(n:integer):integer;
begin
     for i:=1 to n do
    if n>=1 then
     begin
      hasil:=hasil*n;
      n:=n-1;
     end
     else write('input salah');
end;
begin
  clrscr;
  write('Masukan Nilai  :');readln(n);
  hasil:=1;
  write('hasil faktorial dari ',n,' adalah ');
  fac(n);
  write(hasil);
  readln;
end.

=====================================

2.Program Penjumlahan  ( misal nilai input  2, maka program berjalan " 1+2=3" )


program xyz;
uses crt;
var i,x,jum, n:integer;
procedure menk(i:integer);
begin

       if i
         write(i,'+')
       else
         write(i);
         jum:=jum+i;
end;
begin
   clrscr;
   write('Masukan sebuah Nilai       :');readln(n);
   jum:=0;
   for i:=1 to n do
   menk(i);
   i:=i+1;
   write('=',jum);
   readln;
end.

=====================================