PROGRAM PROCEDURE PENJUMLAHAN DENGAN VARIABEL GLOBAL

program nama_global;


uses wincrt;


var
   c : integer;


   procedure tambah;


      var
         a,b : integer;


   begin
     write('Masukkan nilai a: '); readln(a);
     write('Masukkan nilai b: '); readln(b);
     c:=a+b;
   end;


begin
   tambah;
   writeln('Hasil penjumlahan: ',c);
end.


Running program: