14 lines
271 B
ObjectPascal
14 lines
271 B
ObjectPascal
|
begin
|
|||
|
|
var v1 := 0;
|
|||
|
|
var v2 := 0;
|
|||
|
|
|
|||
|
|
var p: procedure := ()->
|
|||
|
|
begin
|
|||
|
|
var v1 := v1+1; // Ошибка: Неизвестное имя 'v1'
|
|||
|
|
v2 += 1; // если убрать эту строчку - ошибки нет
|
|||
|
|
Assert(v1=1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
p;
|
|||
|
|
|
|||
|
|
end.
|