Укажите четыре составляющие управляющего процесса с обратной связью: 1.Компьютер

2.Управляющее воздействие

3.Хозяин

4.Подчиненный

5.Управляемый объект

6.Обратная связь

7.Исполнитель

8.Управляющий объект

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает