Даны следующие описания переменных: var a, b: set of char; x: char; переменной b присвоить множество, полученное из a: а) добавлением элемента x; б) удалением элемента x.

Var       n: integer;       min, max: 0..9; begin       write('введите натуральное число: ');       readln(n);             {инициализация начальных значений минимума и максимума}       min : = 9;       max : = 0;             {разбиение числа на отдельные цифры и поиск их минимума и максимума}       while n < > 0 do       begin               if n mod 10 < min then min : = n mod 10;               if n mod 10 > max then max : = n mod 10;               n : = n div 10       end;             {вычисление и вывод среднего минимума и максимума}       writeln('среднее : ', sqrt(max * min)); end. собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее или среднее пропорциональное этих двух цифр.

Путь к файлу не забудь поменять var   t: text;   st: string;   s, i: integer;   c: char; begin   s : = 0;   st : = '';   assign(t, 'путь к файлу');   reset(t);   while not eof(t) do   begin     read(t, c);     if (ord(c) < > 13) then       st : = st + c     else if trystrtoint(st, i) then     begin       s : = s + i;       st : = '';     end     else       st : = '';   end;   if trystrtoint(st, i) then     s : = s + i;   close(t);   writeln(s); end.