ПОЖАЛУЙСТА Пожалуйста посчитайте НА ПАСКАЛЕ СОСТАВИТЬ ПРОГРАММУЗаполните случайными числами в диапазоне от 1 до 5 два массива: A[1:20] и B[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если A[2]=B[2]=4, то на экран надо вывести: Номер: 2 значение: 4Если совпадений нет, то вывести сообщение об этом.

const n=20;
var a,b:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(5)+1;
 write(a[i]:3);
 end;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
 b[i]:=random(5)+1;
 write(b[i]:3);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]=b[i] then 
  begin
  writeln('Номер ',i,' значение ',a[i]);
  k:=k+1;
  end;
if k=0 then writeln('Совпадающих значений нет');
end.

Пример:
Массив A:
  4  3  5  3  3  4  1  2  1  4  2  1  3  1  3  1  1  5  5  5
Массив B:
  1  4  2  4  1  1  1  3  1  2  3  2  1  1  5  4  4  1  3  2
Номер 7 значение 1
Номер 9 значение 1
Номер 14 значение 1