Program Fungsi Pascal

uses crt;

function Luaspersegipanjang ( p:integer; l:integer ):real;

var luas:real;

begin

clrscr;

luas:= p*l;

luaspersegipanjang:=luas;

end;

var p,l:integer;

luas:real;

begin

writeln('PROGRAM FUNGSI LUAS PERSEGI PANJANG');

writeln('----------------------------------------------------');

write('Masukkan Nilai p : '); readln(p);

write('Masukkan Nilai l : '); readln(l);

write('');

write('Luas persegi panjang adalah ', luaspersegipanjang(p,l):0:0); 

readln;

end.

Logika Program 

program ini dibuat untuk menghitung luas persegi panjang. pertama tentukan integer , yaitu p dan l sebagai integer. kemudian Var luas dengan ketentuan harus bilangan real. mulai dengan memasukkan perinah clrscr; yatu untuk meclear program yang sebelumnya sudah pernah dijalankan.masukkan rumus untuk mencari luas persegi  panjang yaitu p*l. kemudian akhiri dengan end;.
kemudian mulai lagi dengan menginput dan mengoutput program dengan menggunakan perintah "writeln dan readln".
kemudian jalankan program.