С клавиатуры вводится 20 чисел. Найдите сумму тех из них, которые

 // PascalABC.NET 3.3, сборка 1627 от 27.01.2018

// Внимание! Если программка не работает, обновите версию!

begin

  var mas:=ReadArrInteger(20);

  var r:=mas.Where(t-gt;(t mod 5=0) and (t mod 7 =0));

  Writeln('Summa=',r.Sum);

end.

"на 5 и на 7" - это означает, что число обязано делится и на 5, и на 7?Если да, то:program sum;
  var a, b, i:integer;
begin;
  for i:=1 to 20 do begin;
    read(a);
    if (a mod 5 = 0) and (a mod 7 = 0) then b+=a;
  end;
  write(b);
end.Если нет, то поменяй "and" на "or".