Укажите области видимости в программе:

Program P;

Var x: integer;

Procedure P1;

Var y: integer;

Begin P2;

End;

Procedure P2;

Var z: integer;

Begin {Тело процедуры}

End;

Procedure P3;

Var m: integer;

Begin P1;

End;

Begin {Тело основной программы}P3;

end.

Program P;

Var x: integer; / / видна везде

Procedure P1; / / видна везде

Var y: integer; / / видна внутри P1

Begin

P2; / / ошибка: не видна в P1

End;

Procedure P2; / / видна везде, кроме Р1

Var z: integer; / / видна внутри Р2

Begin

{Тело процедуры}

End;

Procedure P3; / / видна в основной программе

Var m: integer; / / видна внутри Р3

Begin

P1;

End;

Begin

{Тело основной программы}

P3;

end.