Дам 45 баллов!!!!Написать программу, которая из последовательности целых чисел обретает сумму

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(g-gt;glt;gt;0).Where(x-gt;(x mod 2lt;gt;0) and (x mod 7=0)).Sum());
end.

Поначалу код без комментариев:

Var
S:longint;
i:integer;
A:byte;

Begin
S:=0;
Repeat
   Read(A);
   if (A mod 2 lt;gt; 0)and(A mod 7 = 0) then S:=S+A;
Until A = 0;
WriteLn('S = ',S);
End.


Теперь изъяснение каждой строки:


Var
S:longint;
i:integer;
A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.

Begin
S:=0; // Тут будет храниться сумма, потому переменную следует сперва обнулить.

Repeat // дальше начинается цикл
   Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.

   if (A mod 2 lt;gt; 0)and(A mod 7 = 0) then S:=S+A; //здесь проверяется 2 условия, и если они производятся - к переменной S прибавляется значение переменной А
   1 условие: число нечётно, то есть остаток от дробления его на 2 не равен нулю (A mod 2 lt;gt;0)
   2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)

Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет одинаково нулю (A = 0)

WriteLn('S = ',S); // Здесь выводится искомая сумма
End.