Помогите сделать тв паскале программку 4 программа

madina в категроии Информатика, вопрос открыт 05.04.2018 в 14:54

begin var (s1,s2,s3):=(readlnstring, readlnstring, readlnstring); var s4:=s1+''+s2''+s3; writeln(s4, 'символов в строке':',s4 leght) end.
вот само задпние
Определить позицию, с которой строки s1, s2, s3, и строковое значение ‘программирование’ входят в строку s4, сформированную по заданию 4.

Результат вывести на экран дисплея в формате:

Вхождение в строку:
<строка s4>

<строка s1> входит с позиции: <номер позиции>
<строка s2> входит с позиции: <номер позиции>
<строка s> входит с позиции: <номер позиции>
Программирование входит с позиции: <номер позиции>


Изменить текст программы таким образом, чтобы для случая, когда вхождение не зафиксировано (pos = 0), программа выдавала сообщение в таком виде:

программирование не входит в строку