Найдите среди четырех заданных чисел сумму и количество четных отрицательных чисел. - Pascal.

var
i, n, s, c: integer;
begin
write('enter 4 numbers: ');
for i := 1 to 4 do begin
read(n);
if (n < 0) and (not odd(n)) then begin
inc(s, n);
inc(c);
end;
end;
writeln('sum: ', s, '; count: ', c);
end.