Program Pembantu *Function*

Program Contoh;
uses wincrt;
var
total : integer;

function Hitung : integer;
var
i, jumlah : integer;

begin
jumlah :=0;
for i:=1 to 5 do
jumlah:= jumlah+i;
hitung:= jumlah;
end;

begin
total:= hitung;
writeln(total);
end.

Categories: DDPK