Информатика 9 класс помогите пожалуйста

какой номер задания нужен?

1 и 2

//PascalABC.NET 3.1 сборка 1239
1)
begin
    var a := SeqWhile(ReadInteger('Число ='), x -gt; ReadInteger('Число ='), x -gt; x lt;gt; 0);
    var n := a.Count(x -gt; x gt; 10);
    writeln(n);
end.
2)
begin
    var n := ReadInteger('n =');
    var a := SeqWhile(ReadInteger('Число ='), x -gt; ReadInteger('Число ='), x -gt; x lt;gt; 0);
    writeln(a.Where(x -gt; x lt; n).Max);
end.