Помогите пожалуйста решить задание по информатике дан текст х слова разбиты

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString;

 s.ToWords(',', ' ')

     .Where(w -gt; (w[:3] lt;gt; 'не') or (w.Right(1) lt;gt; s.Right(1))).Println

end.

javascript:var строчка = "Школьник, плохой, недоразвитый, винторогий"; alert(строчка.split(", ").filter(function (зн) return !(new RegExp("^не.*" + строчка.charAt(строчка.length - 1) + "", "gi")).test(зн); ).join(", "));

Итог: "Школьник, винторогий".