Укажите области видимости в программе:
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.