Program Pembantu *Prosedur*

Program ContohProsedur;
uses wincrt;
var
a,b : integer;
Procedure Cetak_bilangan;
begin
writeln(' Hasil Pertama = ',a);
writeln(' Hasil Kedua = ',b);
end;
begin
write(' Masukkan Bilangan Pertama :'); readln(a);
write(' Masukkan Bilangan Kedua :'); readln(b);
Cetak_bilangan;
a:=a+10;
b:=b+5;
writeln(' Hasil Setelah Penjumlahan ;');
cetak_bilangan;
end.

Categories: DDPK