Помогите с задачей! (pascal abc .net)
Пользователь вводить числа до нуля. Надо:
1. Подсчитать сумму все отрицательных четных чисел
2. Подсчитать количество четных чисел кратных 3.
3. Подсчитать сумму и количество трехзначных нечетных чисел

Program gt;
var a,s1,k1,s2,k2:integer;
begin
a:=1;
while a<>0 do
begin
read(A);
if(a<0)and(abs(a)mod 2=0)then s1:=s1+a;
if(a mod 2=0)and(a mod  3=0)then k1:=k1+1;
if(a>99)and(a<1000)and(a mod 2=1)then begin
k2:=k2+1;
s2:=s2+a;
end;
end;
writeln(условие 1);
writeln(s1);
writeln(условие 2);
writeln(k1);
writeln(условие 3);
writeln(s2, ,k2);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.