BY Value ATAU SECARA NILAI/MATEMATIKA

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