Несомненно, пользователь <span><span>Yuliagal</span>правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить. var st: string; l, e, s: integer; begin readln(st); l := pos('л', st);<em>//Находим позицию символа л </em> e := pos('е', st);<em>//Находим позицию символа е </em> s := pos('с', st);<em>//Находим позицию символа с </em> if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); <em>//Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.</em> if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); <span><em>//Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.</em> </span><span>end. Еще раз повторюсь, решение </span></span><span>Yuliagal верное, и самое короткое.</span>
Var s: string; begin readln(s); if (Pos('л',s)>0) and (Pos('е',s)>0) and (Pos('с',s)>0) then writeln('Можно') else writeln('Нельзя') end.<span> </span>