на вход интервал MN целочисленный, найти целые числа которые деляться на 3 или на 7, но при этом не одновременно(например число 21 нам не подходит. а

var
   a: array[1..100,1..100] of integer;
   i,j,m,n: byte;
begin
   write('enter M: ');
   readln(m);
   write('enter N: ');
   readln(n);
   for i:=1 to m do
   for j:=1 to n do
      read(a[i,j]);
   writeln;
   for i:=1 to m do
   for j:=1 to n do
      if (a[i,j] mod 3 = 0) xor (a[i,j] mod 7 = 0) then
         write(a[i,j],' ');
   readln
end.

var
  m,n,i:integer;
begin
  write('m= ');
  readln(m);
  write('n= ');
  readln(n);
  for i:=m to n do
  begin
    if (i mod 3 = 0) xor (i mod 7=0) then
      writeln(i);
  end;
  readln
end.

var
 m,n: integer;
begin
 write('m: ');
 readln(m);
 write('n: ');
 readln(n);
 while m<>(n+1) do
  begin
   if (m mod 3 = 0) xor (m mod 7 = 0) then
    write(m,' ');
   inc(m);
  end;
 writeln;
 readln;
end.