СРОЧНО ПОМОГИТЕ решить №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.