Пожалуйста посчитайте ПОЖАЛУЙСТА очень очень срочно 1) Даны целые числа a, b, c, d. Как узнать сколько среди них отрицательных и оканчивающихся на 7.2) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4, больше -50 и непревышают 70.3) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4 и по модулю не превышают100.Паскаль

begin
  Writeln('k=',
    ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.

Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.