uses crt;
var s : char; d : boolean;
st : string;
i : integer;
begin d:=false;
write('Nhap xau:'); readln(st);
write('Nhap ki tu :'); readln(s);
for i:=1 to length(st) do if st[i]=s then d:=true ;
if d=true then begin writeln('Co xuat hien'); writeln(s);
end else write('Khong xuat hien');
readln
end.