.


9


1. 12345679, , ?

2. 333667, , ?

. , , , :

Procedure A(i: real);

begin

...

B(i);

...

end;

Procedure B(j: integer);

...

begin

...

A(j);

...

end;

, , . , ,

:

Procedure B(j: integer);

forward;

A(i: real);

Procedure

begin

...

B(i);

...

end;

Procedure B;

begin

...

A(j);

...

end;

, , B, FORWARD. A B - , , .

: B , .