Помогите пж!! Инфа 10 кл
Задана строка символов и отдельный символ. Определить на каком месте в строке впервые встречается такой символ.
Var a,b:string; begin write('Введите строку: '); readln(a); write('Введите символ: '); readln(b); if pos(b,a)=0 then writeln('Символа ',b,' в строке нет') else writeln('Символ ',b, ' находится на ', pos(b,a), ' месте'); end.
Огромное-преогромное спасибо!!!