{* Задача 80 *}

Unit ZADACH80;
Interface
Implementation
Begin
 writeln('Даны два Линейных Массива натуральных чисел А(10)иВ(20). Вывести на экран пересечение этих массивов');
End.

Program zadach80;

Uses zadach80.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  A : Array[1..10] Of word;
  B : Array[1..20] Of word;
  i : word;
  k : word;
Begin
  randomize;
  write('A: [');
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
  Begin
    A[i] := random(300);
    write(A[i] : 4);
  End;
  writeln(']');
  write('B: [');
  For i := 1 To 20 Do {* Переменная i увеличивается с 1 до 20 *}
  Begin
    B[i] := random(300);
    write(B[i] : 4);
  End;
  writeln(']');
  write('A*B: [');
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    For k := 1 To 20 Do {* Переменная k увеличивается с 1 до 20 *}
    Begin
      If A[i] = B[k] Then
        write(A[i] : 4);
    End;
  writeln(']');
  readln; {* Ждем нажатия Enter *}
End.