Решить №2 во всех вариантов ( можно и всё решить) могу и больше дать.

//PascalABC.NET 3.4.2

Вариант 1 №2

begin

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

end.

Вариант 2 №2

begin

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

 try

   sr.Average.Print;

 except

   write('NO');

   exit;

 end;

end.