1)все четырехзначные числа, в которых две средние цифры разные.
2)вывести на экран все нечетные числа из диапазона от a до b, кратные 7(a< =b)

ответ:

program pr1;

var

  i: integer;

begin

  for i : = 1000 to do begin

    if (i div 10) mod 10 < > (i div 100) mod 10 then

      write (i, ' ');

  end;

  readln;

end.

- - - - - - - - - - - - - - - - - - - - -  

program pr2;

var

  a, b, i: integer;

begin

  write ('введите а, в: ');

  readln (a, b);

  for i : = a to b do

    if (i mod 2 < > 0) and (i mod 7 = 0) then

      write (i, ' ');

  readln;

end.