Contoh kodingan function dan prosedur

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
luas,a,b,c,d : integer;

function func_luas (x,y:integer): integer ;
begin
 result := x * y;
end;

procedure jajal1 (x,y:integer);
begin
write ('panjang   =   '); readln(a);
write ('lebar     =   '); readln(b);
writeln('nilai luas pertama = ',func_luas(a,b));
end;

procedure jajal2 (x,y:integer);
begin
write ('panjang    =  '); readln(c);
write ('lebar      =  '); readln(d);
writeln('nilai luas kedua = ',func_luas(c,d));
end;

begin
writeln('----------^_^----------');
writeln('');
jajal1(a,b);
writeln('');
writeln('----------^_^----------');
writeln('');
jajal2(c,d);
writeln('');
writeln('----------^_^----------');
readln;
end.