program bac_2018;
uses wincrt;
type tab=array[1..100] of string;
var m,s:tab;
    n:integer;
 Procedure saisir(var n:integer);
 begin
 writeln('entrer n');
 readln(n);
 end;
 function verif (ch:string):Boolean;
 var i:Integer;
     msg:Boolean;
 begin
    i:=1 ;
    while (i<Length(ch)) and (ch[i] in ['A'..'Z',' ']) do
    i:=i+1;
    if i=Length(ch) then msg:=true else msg:=false;
    verif:=msg;
 end;
 Procedure remplir (var m,s:tab;n:integer);
 var  i,j,k,NS:integer;
      sym,ch:string;
 begin
    for i:=1 to n do
    Begin
    Repeat
    writeln('M[',i,']');
    readln(M[i])
    until verif (M[i]);
    end;

 for j:=1 to n do
 begin
 writeln('entrer le nombre de symtomes de ' , M[j]);
 readln(NS);
 for k:=1 to NS do
 begin
    writeln('entrer les symptomes de la maladie ',M[j]);
    readln(sym);
    ch:=sym+'#';
end;
    delete(ch,Length(ch),1);
    S[j]:=ch;
 end;
end;
function trouver (ch,ch1:string):Boolean;
var i:integer;
    msg:Boolean;
        mot:string;
begin
msg:=false;
i:=1;
while(i<=Length(ch1)) and (msg=false) do
begin
if ch1[i]=ch[1] then mot:=copy(ch1,i,Length(ch)) ;
if ch=mot then msg:=true else
i:=i+1;
end;

trouver:=msg;

end;
Procedure afficher (m,s:tab;n:integer);
var ch,ch1,sym:string;
    i,j:integer;
begin
ch:=' ';
writeln('entrer la symPtome dont vous souffrez');
readln(sym);
for i:=1 to n do
begin
If Trouver (sym,S[i]) then ch:= ch + M[i] + ' ' ;
end;
writeln(ch);
end;
begin
saisir(n);
remplir(m,s,n);
afficher(m,s,n);
end.