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

Паскаль: uses crt; var a,b: string; \ а-слово, b-символi: integer; \ переменная для счетаbeginwriteln ('Слово и символ'); readln (a,b); \\ввод данных for i: =1to length (a) do if copy (a,i,1)=b then writeln (i); \\Копирование по порядку символов слова а и сравнение каждого с символом b. Вывод ответа. Или ответов readkey; \\если символы в слове повторяютсяend.