Безотлагательно ПОМОГИТЕ решить 2 во всех вариантов ( Можно и всё

//PascalABC.NET 3.4.2

Вариант 1 2

begin

 ReadSeqInteger(ReadInteger()).Where(x -gt; (x mod 3 = 0) and (x mod 10 = 2)).Count.Print;

end.

Вариант 2 2

begin

 var sr := ReadSeqIntegerWhile(x -gt; x lt;gt; 0).Where(x -gt; (x div 10 lt;gt; 0) and (x div 100 = 0));

 try

   sr.Average.Print;

 except

   write('NO');

   exit;

 end;

end.