15 lines
134 B
ObjectPascal
15 lines
134 B
ObjectPascal
label a;
|
|
|
|
procedure p;
|
|
label b;
|
|
begin
|
|
goto b;
|
|
writeln('ERROR!');
|
|
b:
|
|
end;
|
|
|
|
begin
|
|
a: writeln('Infinity :)');
|
|
p;
|
|
goto a;
|
|
end. |