Запросить у пользоватпля 3 целых числа. подсчитать сумму отрицательных чисел среди введёных.

Program Otric;

var
  mas: array [1..3] of integer;
  i, k: integer;

begin
  k := 0;
  write('Введите 3 числа: ');
  for i := 1 to 3 do
  begin
    readln(mas[i]);
    if mas[i] < 0
      then k := k + 1;
  end;
  writeln('Среди введенных чисел ', k, ' отрицательных');
end.