C клавиатуры ввести три целых числа, отыскать:а) Количество отрицательных нечетных чисел

program raf105;

var a:array[1..3] of integer;

i,za,zb:integer;

begin

write('Введите три числа: ');

readln(a[1],a[2],a[3]);

for i:=1 to 3 do

begin

 if (a[i]lt;0) and ((a[i] mod 2) lt;gt; 0)

   then za:= za+1

end;

for i:=1 to 3 do

begin

 if (a[i]gt;99) and (a[i]lt;1000) and ((a[i] mod 2) = 0) and (a[i]gt;zb)

   then zb:=a[i];

end;

writeln('а) ',za);

if zblt;gt;0  

 then writeln('в) ',zb)

 else writeln('в) Не найдено');

end.

Программка написана на языке PascalABC.NET