Помогите решить задачу

Question

Помогите решить задачу

---

Comments

а что за слово? сфотографируй всю страницу/вариант

---

слово пользователь должен будет сам вводить

Answer 1

var s:string;

begin

write ('Введите слово: ');

readln (s);

if length(s) mod 2 = 0 then writeln ('Чётное (',length(s),')')

else writeln ('Нечётное (',length(s),')');

write (s[1],' ',s[3],' ',s[length(s)]);

end.

---