Подсчитать количество отрицательных чисел среди a,b,c
это паскаль или что если он то .
program prog;
var a,b,c,i:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then i:=i+1;</p>
if b<0 then i:=i+1;</p>
if c<0 then i:=i+1;</p>
writeln('Количество отрицательных чисел: ',i);
end.