Исправление
Napilnik,
(текущая версия)
:
Или так, с прыжком в начало
VAR
Z: longint=0;
LABEL
1,2,3;
BEGIN
3:
if Z<100000 then goto 1;
goto 2;
1:
inc(Z);
Writeln('Цикл выполняю, тролля Джобса развлекаю. ',Z);
if Z>1000000 then goto 3;
goto 1;
2:
END.
Исходная версия
Napilnik,
:
Или так, с прыжком в начало
VAR
Z: longint=0;
LABEL
1,2,3;
BEGIN
3:
if Z<10000000 then goto 1;
goto 2;
1:
inc(Z);
Writeln('Цикл выполняю, тролля Джобса развлекаю. ',Z);
if Z>1000000 then goto 3;
goto 1;
2:
END.