// PascalABC.NET 3.2, сборка 1449 от 23.05.2017// Внимание! Если программа не работает, обновите версию!begin var s:=ReadlnString.MatchValues('[А-Яа-яЁёA-Za-z]').JoinIntoString(''); Writeln(s)end.ПримерП34+ри34в е56т...65от_(шт:иб56423Л"ет!Th*/i+s_4ISa?>w5ord~ПриветотштибЛетThisISaword