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

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