Каково наибольшее значение m, при котором верно неравенство:
m<2540/21

добавляйте подобные задания в раздел Информатика. Там оно найдет решение гораздо быстрее.

uses crt;
var a:array[1..100] of integer;
n,i,p,q,pr,w,s:integer;
begin
  clrscr;
  randomize;
  pr:=1; w:=1;
  write('p='); read(p);
  write('q='); read(q);
  write('n='); read(n);

  clrscr;

  writeln('Исходный массив: ');
  for n:=1 to n do
  begin
    a[n]:=random(100)-50;
    s:=s+a[n];

    write(a[n],' ');
  end;
  w:=2*sqr(s);

  writeln;
  writeln('Новый массив:');
  for n:=1 to n do
  begin
    if (abs(a[n]) mod p =0) and (a[n]<>0) then pr:=pr*a[n];
    if (a[n] mod p=q)then a[n]:=0;
    write(a[n],' ');
  end;
  writeln;

  writeln('Значение выражения: ',w);
  write('Произведение элементов массива, кратных ',p,': ',pr);
end.

y=2-log₃√(9+8x-x²)      ОДЗ: 9+8х-х²>0

                                                 х²-8х-9<0

     х²-8х-9=0   ⇒ х₁=-1 , х₂=9 (по теореме Виета)  ⇒  (х+1)(х-9)<0      + + +       - - -        + + +

                                                                                                     Знаки:    (-1)(9)

  х∈(-1, 9)

 Пересечение интервалов :  (-9,9)∧(-1,9)=(-1,9)  

Целые числа из этого интервала: 0,1,2,3,4,5,6,7,8.

Их сумма :  0+1+2+3+4+5+6+7+8=28