contoh fungsi

   program luas_persegipanjang;

uses wincrt;

function luas(pj,lbr:integer):integer;

begin

luas:=pj*lbr;

end;

var

pj,lbr:integer;

begin

clrscr;

writeln('program menghitung luas persegi panjang');

writeln('masukkan panjang ');readln(pj);

writeln('masukkan lebar ');readln(lbr);

writeln('jadi luas persegipanjang= ', luas(pj,lbr));

end.