var
a:string;
b:string;
c:string;
mas x[100] of string;
begin
assign(nepomnu to4no) // otkrili fail;
b:=ova;
while(not eof) begin
a:=readln();
c:=copy(a,length(a)-3,length(a);
if (c=b) then begin mas[i]:=a; i++; end;
end.