Вводятся две последовательности целых чисел A и B. С помощью процедуры обеспечить поиск элементов, не входящих в одну из последовательностей или А, или В — Pascal(Паскаль) 

Program PascalGuru;

{ type massiv=array [1..5] of integer; }
var
  p1, p2: array [1 .. 5] of integer; { описание переменных }
  text: string;
  sum1, sum2, i, j, k, m, n1, n2: integer;

  { --------------------------------------------------- }
function c(a, b: integer): integer;
{ если "a" и "b" равны - возвращает 1, иначе - 0 }
var
  d: integer;
begin
  if a = b then
  begin
    d := 1;
    c := d;
  end
  else
  begin
    c := 0;
  end;
end;
{ --------------------------------------------------- }

begin

  writeln('Введите 5 элементов последовательности №1 ');
  for i := 1 to 5 do
    read(p1[i]); { считывание первой последовательности }
  writeln('Введите 5 элементов последовательности №2 ');
  for j := 1 to 5 do
    read(p2[j]); { считывание второй последовательности }

  for k := 1 to 5 do { первый цикл прохождения }
  begin
    sum1 := 0; { обнуляем суммы }
    sum2 := 0;
    for m := 1 to 5 do { второй цикл прохождения }
    begin
      n1 := c(p1[k], p2[m]); { смотрим первую последовательность }
      sum1 := sum1 + n1;

      n2 := c(p2[k], p1[m]); { смотрим вторую последовательность }
      sum2 := sum2 + n2
    end;
    if sum1 = 0
    then { если текущее число из первой последовательности не входит во вторую }
      write(p1[k], ' '); { выводим его на экран }
    if sum2 = 0
    then { если текущее число из второй последовательности не входит во первую }
      write(p2[k], ' '); { выводим его на экран }
  end;
  readln;

end.