до 10:00 надо пара Информатика! ​

Uses crt;
const mn1: array[1..5] of byte =(5,6,1,2,3); {Объявляем наши наборы}
const mn2: array[1..5] of byte =(5,8,6,0,3); {Объявляем наши наборы}

var i,c,n:integer;

begin
clrscr;
  write('Набор1 до обработки:');  
  for i:=1 to 5 do write(mn1[i]:3);  {Выводим  на экран набор 1} 
writeln;
writeln;

 write(' Набор2 до обработки: :'); 
  for i:=1 to 5 do write(mn2[i]:3);  {Выводим  на экран набор 2}

writeln;
 writeln; 

n:=1; c:=0;
  while (n<=5) do         {В цикле сравниваем n-й элемент набора1 с}
  Begin                           {каждым   элемент набора2 } 
for i:=1 to 5 do begin
  if (mn1[n]=mn2[i]) then  
begin
  c:=c+1;    {Если нашли совпадение до увеличиваем кол-во совпадающих пар чисел}
  mn1[n]:=0;          {И записываем на их место нули}
mn2[i]:=0;

break;  {переходим к след элементу набора1}
end;
  end;

Inc(n);
End;

 {Выводим результаты обработки}

write('Количество совпадающих пар чисел:',c);

writeln;
write(' Набор1 после обработки :');
for i:=1 to 5 do write(mn1[i]:3);
writeln;
writeln;

  write(' Набор2 после обработки :');
for i:=1 to 5 do write(mn2[i]:3);
  readkey; {пауза до нажатия на любую клавишу}
end.

Две задачи по порядку)

1)

program example1;
var a,b,c,d,i:integer;

begin
for i:=1000 to 9999 do
begin
d:= i mod 10; //4
c:= i div 10 mod 10; //3
b:= i div 100 mod 10; //2
a:= i div 1000; //1

if ((a=d) and (b=c)) then write (i:5);
end;
end.

2)

program example2;

var a,b,c,d,i:integer;
h,j,k,l:boolean;
begin
write ('Введите четырехзначное число '); readln(i);

d:= i mod 10; //4
c:= i div 10 mod 10; //3
b:= i div 100 mod 10; //2
a:= i div 1000; //1
if (a<>0) and (a<>5) then write(a) else write('');
if (b<>0) and (b<>5) then write(b) else write('');
if (c<>0) and (c<>5) then write(c) else write('');
if (d<>0) and (d<>5) then write(d) else write('');

end.