прикладная математика

var
         str,sumbol:string;
         i:integer;
begin
         write('Enter number: ');
         readln(str);
         write('Enter n: ');
         readln(sumbol);
         for i:=1 to length(str) do
         if(str[i]=sumbol) then
         begin
                 writeln('yes');
                 exit;
         end;
         writeln('no');
end.