Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля
Var a,b:integer; begin readln(a); readln(b); if (a<0) and (b>=0) then writeln('1'); if (b<0) and (a>=0) then writeln('1'); if (a<0) and (b<0) then writeln('2');<br>if (a>=0) and (b>=0) then writeln('0'); end.