Procedure By Valve

Buka delphi -> Console Application / Code Editor dan masukkan script berikut

Kode Jelasnya seperti ini:

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.

Jika berhasil maka hasilnya akan seperti ini :