Вот простой код на Pascal, который выводит определённое сообщение при вводе определённого слова:
```pascal
program WordResponse;
uses crt;
var
input: string;
begin
clrscr;
writeln('Введите слово:'

;
readln(input);
if input = 'Троллфейс' then
writeln('Троллфейс'
else
writeln('Неизвестное слово'

;
readln;
end.
```
Этот код:
1. Запрашивает ввод от пользователя.
2. Проверяет, ввёл ли он слово "Троллфейс".
3. Если да — выводит "Троллфейс", если нет — пишет "Неизвестное слово".
Можно добавить больше слов и ответов с `else if`, например:
```pascal
if input = 'Троллфейс' then
writeln('Троллфейс'
else if input = 'Привет' then
writeln('Здравствуй!'
else
writeln('Неизвестное слово'

;
```
Попробуй и скажи, если нужно что-то изменить! ?