Целое, состоящие из частей, взаимосвязанных между собой, называется

Это определение слова система

Var st: string;   z: string[10];   x: string[2]; i,j,k,m: integer;           //новые переменные begin write('введите строку текста - st'); readln(st); k: =0;                       //обнуляем на всякий случай z: ='0123456789'; i: =1; for j: =1 to length(st) do //начало   begin;   for m: =1 to 10 do     if st[j]=z[m] then inc(k);   end; if k=0 then begin;   writeln('в тексте нет цифр');   exit; end;                               //конец while i< =length(st)-1 do begin x: =copy(st,i,2); if (x[1]=x[2]) and (pos(x[1],z)< > 0) then begin delete(st,i,2); insert('две',st,i); i: =i+1; end; i: =i+1; end; writeln('преобразованная строка ', st); end.

Var k,i: integer;     b,s,min: real; begin   write('целое число: ');   readln(k);   s: =0; min: =10;   for i: =1 to k do   begin    write('число: ',i,'   ');   readln(b);     while b> 10 do     begin       writeln('число должно быть меньше 10');       write('повторите ввод:   ');         readln(b);     end;     if b< min then min: =b;     s: =s+b;   end;   writeln('сумма чисел = ',s);   writeln('наименьшее число = ',min); end.