Príklad:

Program Moja_procedúra:
Uses Crt,Dos;
Var X,Y,Z:Integer;

Procedure WriteXY(X,Y:Integer; S:String);
Var SucXY:Integer;
Begin
SucXY:=X+Y;
GotoXY(X,Y);
Write(S);
End;

Begin { hlavne begin programu }
ClrScr;
WriteXY(10,4,’Ahoj ja som tvoje PC’);
WriteXY(10,5,’Stlač kláves ak chceš pokracovať’);
Readln;
End. { hlavne end programu }
Vysvetlenie funkcie

Napísali sme si už jednoduchú procedúru, ale často sa stáva že potrebujeme prenášať údaje medzi procedúrou a programom. Ináč povedané, aby ním procedúra vrátila nejaké číslo. Môžeme preto definovať funkciu, ktorá má skoro rovnakú štruktúru ako procedúra s jedným rozdielom, že naviac definujeme akú premennú nám bude dávať. V tele funkcie sa názov funkcie správa ako premenná, takže môžeme do nej zapisovať výsledok jednoduchým priradením.

Štruktúra:

FUNCTION_meno(definícia vstupných premenných):typ_výstupu;

BEGIN { begin - začiatok funkcie }
príkaz;
..
meno:=výsledok;
END; { end - koniec funkcie }
Príklad:
Program Priklad_funkcie;
Uses Crt,Dos;
Var X,Vys:Integerl;

Function Moc(X:Integer):Integer;
Var Pom:Integer;
Begin
Pom:=(X+X)*2;
Moc:=Pom;
End;

Begin
ClrScr;
X:=10;
Vys:=Moc(X);
End.