Написать программу в PascalABC:
Определить есть ли среди чисел х, у, z, хотя бы одно отрицательное, если среди них есть отрицательные то посчитать их кол-во

begin

 var count := 0;

 var num := 0;

 repeat

   var a := ReadInteger;

   Inc(num);

   if a < 0 then

     Inc(count);

 until num = 3;

 Println('Количество отрицательных: ', count);

end.