Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

Question

Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

Answer 1

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.