Deskripsi untuk soal nomor 35 - 37

Perhatikan program berikut:

var
mm,r,x,h : integer;
larik : array[1..10] of integer;

{ dengan instruksi sebagai berikut: }
function D(y,z:integer):boolean; forward;
procedure C(r:integer); forward;
procedure B(r:integer); forward;
procedure A; forward;
procedure main(m: integer); forward;

{ pemanggilan function / procedure dapat dilakukan dengan benar tanpa memperdulikan
 urutan penulisan fungsi }

function D(y,z:integer):boolean;
begin
  r:=32767;
  if ((y=0) or (z=0)) then
    D:= (y=0)
  else if (r=32767) then
    D:=D(y+1,z+1);
end;

procedure C(r:integer);
begin
  x:=larik[r];
  if D(x-mm,h-mm) then h:=x;
  B(r-1);
end;

procedure B(r:integer);
begin
  if (r<>0) then C(r);
end;

procedure A;
begin
  B(r);
  writeln(h);
end;

procedure main(m: integer);
begin
  mm:=m;
  h:=-m;
  r:=10;
  A;
end;