unit Unit1;

interface { tu su funkcie/procedury/premenne ... ktore sa daju zavolat z vonku }

function obsahStvorca(a: integer): integer;
function obsahKruhu(r: integer): real;

implementation { tu su definovane VLASTNE funkcie/procedury/premenne }

{tato funkcia sa da volat len v tomto unite. Ak by si dala v inom programe: 
uses Unit1;
begin write(PI); end; ... tak by to nefungovalo, lebo PI je iba sukromna 
funkcia, pretoze nie je zadeklarovana v interface}
function PI: real;
begin
  PI:=3.14;
end;

function obsahStvorca(a: integer):integer;
begin
  obsahStvorca := a*a;
end;

function obsahKruhu(r: integer): real;
begin
  obsahKruhu := PI*r*r;
end;

begin
  // co sa vykona ked sa zavola unit
end.