-Pascal : fungsi-

{***************************************************
* Program 1.2. (PROG1-2.PAS) *
* Contoh sebuah fungsi untuk menghitung nilai *
* rata-rata dari sekumpulan data yang diketahui *
***************************************************}

function RATA(Vektor : Larik; N : integer);
var I : integer;
R : real;

begin
R := 0;
for I := 1 to N do
R := R + Vektor[I];
RATA := R/N
end;