С! (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.