Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных - Pascal ABC

Формулировка задачи:

Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных параметров. Входные числа процедуры задать как параметры-значения, возвращаемое значение задать как параметр-переменную. Нужна программа и блок-схема!

Решение задачи: «Описать процедуру Proc, которая реализует действие функции с 3-мя вещественными параметрами, вычисляющую количество отрицательных чисел из заданных»

Листинг программы

var
  a, b, c, k : integer;
 
procedure Proc(n1, n2, n3 :integer; var res : integer);
begin
  res := 0;
  if n1 < 0 then inc(res);
  if n2 < 0 then inc(res);
  if n3 < 0 then inc(res)
end;
 
begin
  write('введите 3 числа: ');
  readln(a, b, c);
  Proc(a, b, c, k);
  writeln('кол-во отрицательных: ', k)
end.

Объяснение кода листинга программы

Ввод трех чисел с помощью функции readln
Вызов функции Proc с передачей трех чисел и переменной k в качестве результата
Внутри функции Proc увеличение значения переменной res на 1 при каждом отрицательном числе
Вывод результата с помощью функции writeln