Ввести строку символов, затем 1 символ и определить если этот символ в строке, если есть то вывести номер позиции где он встречается первый раз.
ПАСКАЛЬ, ОЧЕНЬ СРОЧНО

var  s,symb:string;  l:longint;begin  readln(s);  readln(symb);  l:=pos(symb,s);  if l = 0 then    writeln('There are not any symbols like this')  else    writeln(l);end.