Program Hasil Jumlah dengan Procedure

Program Hasil_Jumlah;

uses wincrt;

var

     a,b,c,d: integer;

     procedure jumlah (a:integer; var b:integer);

     var                                     

          e: integer;

     begin

     e:=2;

     a:=c+e;

     b:=d+1;

     writeln('Dalam Procedure');

     writeln('a=   ',a);

     writeln('b=   ',b);

     end;

begin

write('c=  ');readln(c);

write('d=  ');readln(d);

a:=0;

b:=1;

jumlah (a,b);

writeln ('Setelah Procedure');

writeln ('a=   ',a);

writeln ('b=   ',b);

writeln ('c=   ',c);

writeln ('d=   ',d);

end.