Вопрос даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе Напишите програм

[Антон_]

даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе Напишите программу. (Язык Паскаль)

 

[topher]

var a,b,c,s:integer; begin read(a,b,c); if a<0 then inc(s); if b<0 then inc(s); if c<0 then inc(s); write(s); end.