BY REFERENCE ATAU SECARA ACUAN/MATEMATIKA

program procedure3;
uses wincrt ;
var
L,M,N:integer;
procedure tambah (A,B,C:integer);
begin
C:=A+B;
end;
begin
write('A=');readln(L);
write('B=');readln(M);
tambah(L,M,N);
writeln('C=',N);
writeln('   nama : misbahul munir     ');
writeln('      nim  : 11122067        ');
writeln('www.munirmaestro.blogpsot.com');
end.