Цикл WHILE Pascal.