Решить на паскале задано два массива a (8) и b (8), которые упорядкованi по убыванию. определить кiлькicть элементов, что в двух массивах и их значения. вывести выходные массивы, элементы, и их количество.

program cyberforum;

var

a,b: array[1..20] of integer;

i: integer;

begin

randomize;

write('массив a: ');

for i: =1 to 20 do begin

  a[i]: =random(5)+1;

  write(a[i],'   ');

  end;

  writeln;

write('массив b: ');

for i: =1 to 20 do begin

  b[i]: =random(5)+1;

  write(b[i],'   ');

  end;

  writeln;

for i: =1 to 20 do begin

  if a[i]=b[i] then

  writeln(i,' элемент, значение: ',a[i]);

  end;

  end.