{* Задача 15 *}

Unit ZADACH15;
Interface
Implementation
Begin
 writeln('Даны две строки текста. Определить встречается ли хотя бы один раз каждый из символов первой строки во второй строке. Например Str1 “xyz”; Str2 “x a d c x y xw”. “x” – встречается 3 раза, “y” – встречается 1 раз, “z” – встречается 0 раз. Не каждый символ встречается, например, “z” не встречается ни разу.');
End.

Program zadach15;
Var s1,s2:String; i,j,flag:integer; k:Array [1..10] Of integer;
Begin
  read(s1);
  read(s2);
  For i:=1 To length(s1) Do
  Begin
    k[i]:=0;
    For j:=1 To length(s2) Do
      If s1[i]=s2[j] Then
        k[i]:=k[i]+1;
  End;
  flag:=1;
  For i:=1 To length(s1) Do
    If k[i]=0 Then
      flag:=0;
  If flag=1 Then
    writeln ('присутствуют')
  Else writeln ('не присутствуют');
End.