1) С клавиатуры вводят слово и символ. Составьте программу, которая: а) определяет…

Program Zadacha; Var s: String; c: Char; i, pos, count: Integer; BeginWriteLn ('Введите слово: '); ReadLn (s); WriteLn ('Введите символ: '); ReadLn (c); pos: =0; count: =0; For i: =1 To Length (s) DoIf s[i]=c ThenBegincount: =count+1; If pos=0 Thenpos: =i; End; WriteLn ('Позиция символа в строке: ', pos); WriteLn ('Количество вхождений символа в строку: ', count); ReadLn; End.