Ввести з клавіатури n будь-яких чисел. Знайти кількість додатних чисел та кількість від'ємних. Розв'яжіть задачу в середовищі с++

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('IP=').ToWords('.');
  if a.Length<>4 then
    Writeln('Адрес - это четыре числа, разделенные точками')
  else begin
    var n:integer;
    foreach var c in a do begin
      if not TryStrToInt(c,n) then begin
        Writeln(c,'- не целое число'); exit end
      else
        if n>255 then begin Writeln(c,' превышает 255'); exit end;
      end;
    Writeln('IP-адрес корректен')  
    end
end.

Примеры
IP= 128.16.35.a4
a4- не целое число

IP= 240.127.56.340
340 превышает 255

IP= 34.56.42,5
Адрес - это четыре числа, разделенные точками

IP= 128.0.0.255
IP-адрес корректен

По горизонтали:
1. Основное устройство ввода информации. 2. «Мозг» компьютера. 3. Устройство вывода информации. 4. Устройство хранения программ и данных. 5. Устройство для быстрого перемещения по экрану и выбора информации. 6. Устройство ввода, используемое для управления компьютером во время игры. 7. Другое название жёсткого диска. 8. Устройство, с которого можно вывести на бумагу тексты и рисунки.

По вертикали:
1. Основной инструмент сбора, хранения и переработки информации.

ответы на кроссворд Устройства компьютера:
По горизонтали: 1. Клавиатура. 2. Процессор. 3. Монитор. 4. Память. 5. Мышь. 6. Джойстик. 7. Винчестер. 8. Принтер.
По вертикали: 1. Компьютер.