Цикли в Pascal.