FUNCTION DALAM PASCAL

program septi_pascal;
uses crt;

function luassegitiga(alas: integer; tinggi:integer) : real;
var luas:real;
begin
clrscr;
luas:= alas*tinggi/2;
luassegitiga:= luas;
end;


var a,t:integer;
luas : real;

begin
clrscr;
writeln('-======Program Fungsi Luas segitiga======-');
writeln;
write('masukkan nilai alas : '); readln(a);
write('masukkan nilai tinggi : '); readln(t);

write('luas segitiga adalah : ', luassegitiga(a,t):0:2);
readkey;

end.

Compile hasilnya menjadi :