LATIHAN 9

cara menggunakan procedur by Refrence

contoh script

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x,y,z:integer;

Procedure tambah (var a,b,c:integer);

begin

c:=a+b;

end;

begin

write('Masukkan Nilai X = ');readln(x);

write('Masukkan Nilai Y = ');readln(y);

tambah(x,y,z);

writeln('X+Y = ',z:10);

readln;

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

end.