Автор - Zеwz
Ответ:
4
Объяснение:
procedure P(x, y, z: integer);
begin y:=x+z end;
3 параметра-значения
procedure Q(x: integer; var y: integer);
begin y:=x+1 end;
1 параметр-значение
procedure R(var x, y: integer);
begin y:=x+1 end;
нет параметров-значений