Несколько вопросов по FreePascal (скорее опрос некий)

[Mirage]

Неэквивалентно же!
А эквивалентно с гоуту будет некрасиво.

[Brainenjii]

Код: Выделить всё

Var
  aFine: Boolean = FALSE;
Repeat
  If <condition> Then Break;
  If <condition> Then Break;
  If <condition> Then Break;
  If <condition> Then Break;
  If <condition> Then aFine := TRUE;
Until TRUE;
If (aFine) Then Goto100()
Else Goto1();

[dedm0zaj]

http://ru.wikipedia.org/wiki/Модула-2

Код: Выделить всё

IF Условие THEN
  Операторы
ELSIF Условие THEN
  Операторы
ELSIF Условие THEN
  Операторы
...
ELSE
  Операторы
END

я считал, что это некий заменитель case