Несомненно, пользователь <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>
Систе́ма счисле́ния (англ. numeral system или system of numeration) — символический метод записи чисел, представление чисел с помощью письменных знаков.
Система счисления:
<span><span>даёт представления множества чисел (целых и/или вещественных);</span>даёт каждому числу уникальное представление (или, по крайней мере, стандартное представление);<span>отражает алгебраическую и арифметическую структуру чисел.</span></span>
Системы счисления подразделяются на:
<span><span>позиционные (англ. positional system, place-value notation);</span>непозиционные;<span>смешанные.</span></span>
<u>графический интерфейс</u>. ( ну и так для ознакомления:В графическом интерфейсе компьютерные обьекты представляютя небольшими рисунками(значками), нужный значок выбирают с помощью мыши.Кроме значков используются также тексты(для подсказок) и меню (для выбора команд)
