Program Pembantu *Prosedur*

Program Lokal_Variabel;
uses wincrt;
var
nomor1, nomor2 : integer;
Procedure tambah;
var
hasil : integer;
begin
hasil:=nomor1+nomor2;
writeln('hasil adalah',hasil);
end;
begin
writeln('masukkan dua angka bulat dengan spasi'); readln(nomor1,nomor2);
tambah;
end.

Categories: DDPK