Приклади програм

Класичний приклад:

program Hello_World;
begin
 Writeln('Hello, World!!');(*:)*)
end.

Рекурсивний варіант обчислення факторіалу:

{$N+, E+}
var
   n: Byte;

function Fact(n: Byte): Comp;
begin
 if n= 0 then
  Fact:= 1
 else
  Fact:= Fact(n-1)* n;
end;

begin
 ReadLn(n);
 WriteLn(n, '!= ', Fact(n):0:0);
end.