Contoh Program Pascal Function

Kasus : buatlah program fungsi, untuk membandingkan bilangan yang terbesar. Berikut contoh programnya :

program fungsi;
uses crt;
var x,y : integer;
function besar (x,y : integer): integer;



begin
if x>y then
besar := x
else
besar := y;
end;

begin
writeln ('======= Program Membandingkan Bilangan Terbesar ======');
writeln;
write ('masukkan bilangan x     : '); readln(x);
write ('masukkan bilangan y     : '); readln(y);
writeln;
write ('Bilangan Terbesar       : ', besar (x,y):0);
readln;
end.

Output Programnya :