Contoh Program Dengan Instruksi Function..^^

program fungsi_gaji_karyawan;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
gp,a,gb,anak,tunj,pajak:real;

function ta(gp,a:real):real;
begin
if a<=2 then
ta:=a*20000
else
ta:=a*15000;
end;
function tl(gp:real):real;
begin
tl:=(0.5*gp)+(0.05*gp)+(0.1*gp);
end;
function pjk(gp:real):real;
begin
pjk:=0.1*gp;
end;

begin
writeln('================Program Hitung Gaji====================');
writeln;
write('gaji pokok:');
readln(gp);
write('jumlah anak:');
readln(a);
anak:=ta(gp,a);
tunj:=tl(gp);
pajak:=pjk(gp);
gb:=gp+anak+tunj-pajak;
writeln('tunjangan anak anda:',anak:15:2);
writeln('tunjangan tambahan anda:',tunj:15:2);
writeln('pajak gaji anda:',pajak:15:2);
writeln('Gaji bersih anda:',gb:15:2);
writeln;
writeln('==================Terima Kasih==========================');
write('=========Anda telah memakai Program Rani Amalia===========');
readln;
end.

Hasil Setelah di RUN(F9 pd Delphi):

================Program Hitung Gaji====================

gaji pokok:3000000
jumlah anak:3
tunjangan anak anda: 45000.00
tunjangan tambahan anda: 1950000.00
pajak gaji anda: 300000.00
Gaji bersih anda: 4695000.00

==================Terima Kasih==========================
=======Anda telah memakai Program Rani Amalia=============

Coba di RUN lagi..^^
================Program Hitung Gaji====================

gaji pokok:1000000
jumlah anak:0
tunjangan anak anda: 0.00
tunjangan tambahan anda: 650000.00
pajak gaji anda: 100000.00
Gaji bersih anda: 1550000.00

==================Terima Kasih==========================
=========Anda telah memakai Program Rani Amalia===========