Contoh Program Prosedur Sederhana

Contoh Program Prosedur Sederhana

Program Penjumlahan_2_bilangan;

uses crt;

var bil1,bil2: integer;

Procedure jumlahkan;

var hasilJum: integer;

begin

  hasilJum := bil1+bil2;

  writeln('hasil penjumlahan: ',hasilJum);

end;

BEGIN

  clrscr;

  writeln('masukan 2 bilangan');

  write('bilangan pertama: '); readln(bil1);

  write('bilangan kedua  : '); readln(bil2);

  jumlahkan;

END.