ПОМООООГИТТЕЕЕЕЕЕЕЕЕЕПООООООООООООООЖАААААААААААААААЛУУУУУУУУУУУУУУЙСТААААААААпаскаль.

например

мать купила раму

мать-4 буковкы

обязано вывести раму

Слова состоят только из российских букв?

да

Из строчных и строчных либо только из строчных, либо только из строчных?))

строчные

Вот прога. Ей главно только чтоб разделялись слова пробелами. Алфавит не важен - будет сопоставлять и числа. Количество пробелов между словами тоже не главно.

Если глючит - пишите, исправлю))

Var
S,C,C1,R:string;
i,j,m,n,k:integer;
Begin
Write('Введите строчку: ');
ReadLn(S);
i:=1;
LowerCase(S);
While S[i]lt;gt;' ' do
   Begin
   C:=C+S[i];
   i:=i+1
   End;
i:=i+1;
For i:= i to Length(S) do
    if (S[i]lt;gt;' ')and(ilt;gt;Length(S)) then C1:=C1+S[i]
    else
       Begin
       k:=1;
       j:=1;
       For j:= 1 to Length(C1) do
           Begin
           n:=0;
           For m:= 1 to Length(C) do
               if C1[j] = C[m] then n:=1;
           if n = 0 then k:=0
           End;
       if (k = 1)and(C1 lt;gt; '') then R:=R+C1+' ';
       C1:='';
       End;
if R = '' then WriteLn('Нет')
else WriteLn(R)
End.