Запросить у пользоватпля 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.