Программа введите ряд чисел,но как только пользователь вводит -1 программа должна сосчитать кол-во четных и нечетных проверьте почему не работает program minodin; uses crt ; var a,i,b: integer; begin writeln('введи число'); readln(a); begin i: =0; while (a< -1) and (a> -1) do writeln('введи число'); readln(a) end; begin if a mod 2=0 then i: =i+1 else b: =b+1; end; writeln(b,' нечетных чисел'); writeln(i,' четных чисел'); readln; end.