Целое состоящее из взаимнносвязаных частей

Система-это целое, состоящее из множества взаимосвязанных объектов.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! function simple(n: integer): boolean;   begin    result : = true;     if n = 1 then result : = false;     for var i: = 2 to n div 2 do     if n mod i = 0 then      result: = false;   end; begin range(readinteger, readinteger).where(t -> simple( end. пример: 1 100 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

Const   nn=40; { максимальное количество школьников в классе}   var   n,i,k,s: integer;   a: array[1..nn] of integer;   begin   write('количество учеников в классе: '); read(n);   writeln('введите рост школьников');   s: =0; k: =0;   for i: =1 to n do begin       read(a[i]);       if a[i]< 0 then begin s: =s+a[i]; k: =k+1 end;       end;   if k=0 then writeln('сведения о росте мальчиков отсутствуют')   else writeln('средний рост мальчиков равен ',-s/k: 0: 1) end.