Вопрос

Действие цикла y:=1; k:=1; while y < k do begin y:=y+k; k:=k+1; end; writeln(k);
Адаптивное тестирование - быстрая и точная оценка персонала