contoh program fungsi

program latihan;
uses wincrt;

function hitung (x, y, z :byte): byte;
begin
z := x +y;
writeln ('Nilai x = ',x);
writeln ('Nilai y = ',y);
writeln ('Nilai z = ',z);
end;

var
a, b, c:byte;
begin
write ('input Nilai a: '); readln (a);
write ('input Nilai b: '); readln (b);
write ('input Nilai c: '); readln (c);
writeln;
hitung (a,b,c);
writeln('nilai a=',a, ' nilai b=',b, ' nilai c=',c);
readln;
end.