Не (x < = 6) и не (x > = 11) наибольшее найтине (x < = 11) и не (x > = 17) наибольшее найтине (x < = 10) и не (x > 16) наибольшее найтине (x нечётное) и не (x > = 6) наибольшее найтине (x чётное) и не (x > = 7) наибольшее найтине (x < 9) и не (x нечётное) наименьшеене (x < = 8) и не (x > = 15) и (x чётное) наименьшеене (x < 2) и не (x > 10) наименьшеене (x < = 11) и не (x > = 17) и (x нечётное наибольшеене (x < = 3) и не (x > = 7) наибольшее

Преобразуем выражения и получим:

//Pascal ABC.NET 3.2 сборка 1318

Var
  f:text;
  n:integer;
  s:string;

   
procedure VoTeRaz(f:text;n:integer;s:string);
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;

function VoTeDva(f:text;n:integer;s:string):integer;
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
   
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.

Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6 
Стало:
891 5 6
Было:
891 5 6 
Стало:
113157 5 6

Программа от Microsoft, входящая в Office, под названием Excel или электронные таблицы была создана для более удобной работы пользователя с таблицами данных, причём преимущественно данная работа производится с числовыми значениями.
Благодаря использованию электронных таблиц — намного проще работать с данными, с её можно получать точные результаты без выполнения каких-либо ручных расчётов. Также электронные таблицы позволяют с специального «программирования» решать намного быстрее более сложные задачи.
Основной особенностью MS Excel выступает его возможность использовать формулы для того, чтобы описывать между значениями разных ячеек различные связи. Следует отметить, что по заданным формулам расчёт будет выполняться автоматически. Если человек изменяет значение какой-либо ячейки, то сразу же автоматически произойдёт перерасчёт значений всех остальных ячеек, которые связаны с ней формульными отношениями, благодаря чему обновится вся таблица и данные, которые находятся в ней.