Buatlah Program utama yang didalam program tersebut terdapat fungsi.
Penyelesaian:
PROGRAM PERSEGI PANJANG
( Menghitung luas dan keliling persegi panjang dengan menginput panjang dan lebar dari persegi panjang )

DEKLARASI
function luas (p,l : integer) : real
luas ← p*l
function keliling (p,l : integer) : real
keliling ← (2*p) + (2*l)
(nama peubah)
p,l : integer

ALGORITMA
begin
clrscr
write( )
write(‘ ================================================== ‘)
write( )
write(‘ Menghitung Luas & Keliling Persegi Panjang ‘)
write( )
write(‘ ================================================== ‘)
write(‘ Masukkan Panjang =’) read(p)
write(‘ Masukkan Lebar =’) read(l)
write( )
write(‘ Luas Persegi Panjang = ‘, luas(p,l):1:0)
write(‘ Keliling Persegi Panjang = ‘, keliling(p,l):1:0)
read( )
end.