{* Задача 483 *}

Unit ZADACH483;
Interface
Implementation
Begin
 writeln('Составить программу, позволяющую выбирать одинаковые по названию детали из двух партий.');
End.

Program zadach483;

Uses zadach483.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  z : Set Of char;
  y : Set Of char;
  w : Set Of char;
  x : Array [1..50] Of char;
  v : Array [1..50] Of char;
  i : byte;
  n : byte;
  m : byte;
Begin
  clrscr; {* Очищаем экран *}
  y := [];
  z := [];
  w := [];
  write(‘введите кол - во деталей в 1 партии : ’);
  readln(n);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    write(‘введите название’, i,’ - ой детали : ’);
    readln(x[i]);
    include(y, x[i]);
  End;
  clrscr; {* Очищаем экран *}
  write(‘введите кол - во деталей в 2 партии : ’);
  readln(m);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
    write(‘введите название’, i,’ - ой детали : ’);
    readln(v[i]);
    include(z, v[i]);
  End;
  clrscr; {* Очистка экрана *}
  writeln(‘1 партия’);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    write(x[i] : 3);
  writeln; {* Пустая строка *}
  writeln(‘2 партия’);
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
    write(v[i] : 3);
  writeln; {* Вывод пустой строки *}
  writeln(‘одинаковые детали’);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    If x[i] In z Then
    Begin
      include(w, x[i]);
      write(x[i] : 3)
    End;
  readkey
End.