Заполните случайными числами в диапазоне от 1 до 5 два массива: а[1: 20] и в[1: 20]. найдите и выведите на экран только те элементы этих массивов, значения которых . например, если а[2]=в[2]=4,то на экран надо вывести: номер: 2 значение: 4.если таких совпадений нет, то выведите на экран сообщение об этом.

Var  a, b :array [1..20] of integer;  i :integer;  f :boolean;
begin
  randomize;  for i:= 1 to 20 do  begin    a[i]:= random(5);    b[i]:= random(5);  end;  f:= false;  for i:= 1 to 20 do    if a[i] = b[i] then    begin      f:= true;      writeln('Номер: ',i,' значение: ',a[i]);    end;  if f = false then    writeln('Совпадающих элементов нет!');
end.