Abcpaskal: дана строка символов.определить,можно ли из символов данной строки получить слово

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

Var   s: string; begin   readln(s);   if (pos('л',s)> 0) and (pos('е',s)> 0) and (pos('с',s)> 0)  then     writeln('можно') else writeln('нельзя') end.

2 задание-

Воин- 02 09 05 08

Лента- 07 04 08 11 01

Объяснение:

чем смогла,зато правильно :)