Contoh Codingan dhelphi

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 p,l,h,hasil : integer ;

procedure kali(x,y: integer) ;
begin
 hasil := x * y ;
 Writeln('Hasil kali adalah: ',hasil);

end;

procedure tambah(x,y : integer) ;
begin
 hasil := x+y ;
 Writeln('Hasil tambah adalah: ',hasil);
end;

procedure luas (x,y,z : integer);
begin
  hasil := x*y*h ;
  Writeln('Hasil luas adalah: ',hasil);

end;


begin  //main program

 write('Masukan nilai x :');readln(p);
 write('Masukan nilai y :');readln(l);
 write('Masukan nilai z :');readln(h);

  kali(p,l) ;
  tambah(p,l);
  luas(p,l,h);


  readln ;
end.


---------------------------------------------------------

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
l,p,t,luas,volume,jawab : integer ;

procedure luasPersegi ;
begin
  luas := l*p ;
   write ('luas persegi : ',luas) ;
end;

procedure volumebalok ;
begin
  volume := p*l*t ;
   write ('volume balok : ',volume);
end;

procedure output ;
begin
  write('nilai panjang :' );readln(p);
  write('nilai lebar :' );readln(l);
  write('nilai tinggi :' );readln(t);
  write('pilih output luas[l]/Volume[2]');readln(jawab) ;

  if jawab = 1 then      luasPersegi ;
  else if jawab = 2 then     volumebalok ;


end;

begin   //main
  output ;
  readln ;

end.