Ввести строку символов затем один символ, определить есть ли символ в строке, если есть, то ввести номер позиции, где он встречается первый раз

Var

s: string;

ch: char;

index: integer;

begin

writeln ('введите строку символов') ;

readln (s) ;

writeln ('введите символ') ;

readln (ch) ;

index:=pos (ch, s) ;

if index=0 then

writeln ('символа в строке нет')

else

writeln ('позиция символа в строке ', index) ;

end.

{пример}

введите строку символов

abcdefg

введите символ

b

позиция символа в строке 2