Вопрос, который вызвал трудности

Написать программу решения задачи: Вводить целые числа с клавиатуры, пока не будет введен ноль.
а) Найти сумму введенных чисел.
b) Найти количество четных отрицательных чисел среди введенных.
c) Найти максимальное число среди введенных.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Написать программу решения задачи: Вводить целые числа с клавиатуры, пока не будет введен ноль.
а) Найти сумму введенных чисел.
b) Найти количество четных отрицательных чисел среди введенных.
c) Найти максимальное число среди введенных.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

//PascalABC.Net 3.2
begin
var max:=-1000000000;
var sum:=0; var count:=0; var a:=0;
repeat
a:=readinteger('Введите число: ');
if (a.IsEven) and (a<0) then inc(count);<br>if a>max then max:=a;
sum+=a;
until a=0;
writeln ('a) ', sum);
writeln ('b) ', count);
write  ('c) ', max);
end.