Давайте разберем, как написать программу на языке Паскаль, которая будет выполнять поставленную задачу. Мы будем использовать библиотеку Crt для работы с цветами текста.

Вот шаги, которые нужно выполнить:

1. Объявление программы и подключение библиотеки: В начале программы мы объявляем ее название и подключаем библиотеку Crt, которая позволяет нам использовать функции для изменения цвета текста.
2. Объявление переменных: Нам понадобятся переменные для хранения введенного слова и его длины. Мы объявляем переменную word типа string для хранения слова и lengthWord типа integer для хранения длины этого слова.
3. Считывание слова: С помощью функции ReadLn мы считываем слово, введенное пользователем.
4. Определение длины слова: Мы используем функцию Length, чтобы получить длину слова и сохранить ее в переменной lengthWord.
5. Проверка четности длины слова: С помощью оператора mod мы проверяем, четная ли длина слова. Если lengthWord mod 2 = 0, значит, длина четная.
6. Вывод первой половины слова: Если длина слова четная, мы устанавливаем цвет текста в зеленый с помощью TextColor(Green) и выводим первую половину слова с помощью функции Copy, которая позволяет извлечь часть строки.
7. Вывод слова целиком: Если длина слова нечетная, мы устанавливаем цвет текста в красный и выводим слово целиком.
8. Возврат цвета текста: После выполнения всех операций мы возвращаем цвет текста к белому с помощью TextColor(White), чтобы не нарушать оформление последующего текста.
9. Завершение программы: В конце программы мы используем ReadLn, чтобы программа не закрывалась сразу и ждала нажатия клавиши.

Теперь давайте посмотрим на сам код программы:

program ColorWord;

uses Crt;

var
  word: string;
  lengthWord: integer;

begin
  ClrScr; // Очистка экрана
  Write('Введите слово: ');
  ReadLn(word); // Считываем слово
  lengthWord := Length(word); // Получаем длину слова

  if lengthWord mod 2 = 0 then
  begin
    TextColor(Green); // Устанавливаем зеленый цвет текста
    WriteLn(Copy(word, 1, lengthWord div 2)); // Выводим первую половину слова
  end
  else
  begin
    TextColor(Red); // Устанавливаем красный цвет текста
    WriteLn(word); // Выводим слово целиком
  end;

  TextColor(White); // Возвращаем цвет текста к белому
  ReadLn; // Ожидание нажатия клавиши
end.

Таким образом, программа будет корректно выполнять поставленную задачу, изменяя цвет текста в зависимости от четности длины введенного слова. Если у вас есть дополнительные вопросы, не стесняйтесь их задавать!