16 lines
180 B
ObjectPascal
16 lines
180 B
ObjectPascal
|
// #2271
|
|||
|
|
type
|
|||
|
|
A = class
|
|||
|
|
procedure p;
|
|||
|
|
label 1;
|
|||
|
|
begin
|
|||
|
|
Arr(3).Select(b -> b);
|
|||
|
|
if True then
|
|||
|
|
goto 1;
|
|||
|
|
1: Print(1);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|