Найти количество положительных и количество отрицательных чисел в исходном наборе

program Number1;
var
  x: integer;   { Переменная для хранения значения вводимых чисел}
  i: integer;   { Вспомогательная переменная для организации цикла}
  neg, pos: integer; { Переменные для хранения значения количества чисел}
begin
  pos:= 0;            { Установка переменных в начальное состояние}
  neg:= 0;
  for i:= 1 to 4 do    { Цикл, для четырехкратного повторения кода}
    begin
      write ('Введите ',i,' число: ');
      readln(x);       { Ввод значений в переменную}
      if x > 0 then    { Условие для проверки на положительность значения}
        inc(pos)       { Увеличение счетчика}
      else
        if x < 0 then  { Условие для проверки на отрицательность значения}
          inc(neg);    { Увеличение счетчика}
    end;
    writeln('Количество положительных чисел: ',pos); { Вывод значений счетчиков в консоль}
    writeln('Количество отрицательных чисел: ',neg);
  readln;
end.

program Number1;
var
  x: integer;   { Переменная для хранения значения вводимых чисел}
  i: integer;       { Вспомогательная переменная для организации цикла}
  min: integer;     { Переменная для хранения значения минимального числа}
begin
  min:= 2147483647;
  for i:= 1 to 3 do    { Цикл, для четырехкратного повторнеия кода}
    begin
      write ('Введите ',i,' число: ');
      readln(x);       { Ввод значений в переменную}
      if x < min then   { Условие для поиска минимального значения}
        min:= x;        { Присвоение переменной найденного значения}
    end;
  Writeln('Минимальное число: ',min);
  readln;
end.

program Number1;
var
  x: integer;   { Переменная для хранения значения вводимых чисел}
  i: integer;       { Вспомогательная переменная для организации цикла}
  max1,max2: integer;     { Переменные для хранения значения максимальных чисел}
begin
  max1:= -2147483647;
  for i:= 1 to 3 do    { Цикл, для трехкратного повторения кода}
    begin
      write ('Введите ',i,' число: ');
      readln(x);               { Ввод значений в переменную}
      if x >= max1 then   { Условие для поиска максимального значения}
        begin
          max2:= max1;      { Нахождение второго наибольшего числа}
          max1:= x;            { Нахождение первого наибольшего числа }
        end;
    end;
  writeln('Первое наибольшее число: ',max1);
  writeln('Второе наибольшее число: ',max2);
  Writeln('Сумма наибольших чисел: ',max1 + max2);
  readln;
end.

program If19;
var
  A,B,C,D: Real;
begin
  WriteLn('Введите числa A,B,C и D: ');
  ReadLn(A,B,C,D);
  if (A = B) and (B = C) then
    WriteLn('Номер числа, отличного от остальных: ',4)
  else
    if (A = B) and (A = D) then
      WriteLn('Номер числа, отличного от остальных: ',3)
    else
      if (A = C) and (A = D) then
        WriteLn('Номер числа, отличного от остальных: ',2)
      else
        if (B = C) and (B = D) then
          WriteLn('Номер числа, отличного от остальных: ',1);
  readln;
end.

program Number1;
var
  x: array [1..4] of integer;   { Переменная для хранения значения вводимых чисел}
  i,j: integer;       { Вспомогательная переменная для организации цикла}
  ind: integer;     { Переменная для хранения значения индекса числа}
  flag: boolean;   { Логическая переменная для поиска отличий}
begin
  for i:= 1 to 4 do    { Цикл, для четырехкратного повторения кода}
    begin
      write ('Введите ',i,' число: ');
      readln(x[i]);       { Ввод значений в переменную}
    end;
  for i:= 1 to 4 do      { Перебор индексов в цикле}
    begin
      flag:= true;     { Установка переменной в начальное состояние}
      for j:= 1 to 4 do
        if (i <> j) and (x[i] = x[j]) then  { Поиск элемента отличного от остальных}
            flag:= false;
      if flag then    {Если все одинаковые элементы не попадались, то ...}
        ind:= i;      {определяется номер элемента, который отличен от других}
    end;
  Writeln('Порядковый номер числа, отличного от других: ',ind);
  readln;
end.