Найдите ошибку в коде чтоб все заработало var
a,x,flag:integer;
begin
for a:=-100 to 1000 do
begin
for x:= 1 to 1000 do
flag:=0;
if (( x mod a <>0) <= (x mod 26 =0) <= ( x mod 169 <>0))=false then flag:=1;
if flag=0 then writeln(a);
end;
end.

pro9377196    2   25.04.2021 19:29    2