1. С клавиатуры вводят слово и символ

Var c: Char; s: String; i,k,p: Integer; Begin ReadLn (c); {Чтение заданного символа} ReadLn (s); {Чтение заданного слова} p: =Pos (c,s); {Определяем позицию символа} If (p=0) Then {Функция вернет 0, если символ не будет найден} WriteLn ('Такого символа в слове нет.') Else {Если символ есть, то … } Begin WriteLn ('Указанный символ расположен на позиции: ',p); k: =0; {k хранит количество вхождений} p: =Length (s); {p хранит длину строки (слова) } For i: =1 To p Do {Пробегаем по всем символам слова} If (s[i]=c) Then inc (k); {Если символ совпадает, увеличиваем на 1 переменную k} WriteLn ('Количество вхождений данного символа: ',k); End; End.