помогите пожалуйста!!!3 задание

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

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

begin

 var s := ReadlnString;

 s.MatchValues('[.,:;\-()!?"]').Count.Println; // 1

 (s.MatchValues('\d').Count gt; 0).Println; // 2

 (s.MatchValues('(.)\1').Count gt; 0).Println; // 3

end.