PROCEDURE 1 ATAU SECARA STANDART/SEMUA BAHAN

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