LATIHAN 10

menggunakan fungsi procedure by valve

Contoh script

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

x,y : integer;

Procedure tambah(a,b:integer);

var

c:integer;

begin

c:=a+b;

writeln('Hasil Penjumlahan = ',c:10);

end;

begin

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

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

tambah(x,y);

readln;

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

end