LATIHAN 6

Cara menggunakan fungsi procedure

contoh script

program Procedure2;

{$APPTYPE CONSOLE}

uses

SysUtils;

procedure tambah;

var

a,b,c : integer;

begin

write('Masukkan Nilai A= '); readln(a);

write('Masukkan Nilai B= '); readln(b);

c:=a+b;

writeln('A+B= ',c:2);

end;

begin

tambah;

readln;

{ TODO -oUser -cConsole Main : Insert code here }

end.