Составьте шаблон который ищет все файлы начинающий на букву Л с любым разрешением

Л*.*

Если нужно учитывать файлы БЕЗ расширения вообще, то Л*

Объяснение:

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.