var S:string; i,k,l:integer; begin Readln(S); For i:=1 to length(S) do begin If (S[i]='2') then k:=2; If (S[i]='5') then l:=5; end; If k=2 then Writeln('В этой цифре есть цифра 2 '); If l=5 then Writeln('В этой цифре есть цифра 5 '); end.