begin i := 0; k := 5; while (i < 5) do begin if (i = 4) then begin while (k > 0) do begin dec(k); end; i := -1; end; inc(i); end; end;var i, k : integer; Вроде так, но не проверял
Да зачем? Всё равно основная масса перебанена, часть живых играет в ВоТ, часть - упоротые школьники, вроде TiPo, нафиг надо тут сидеть, легче игнорить.