Слова отделяются друг от друга одним пробелом, знаков препинания нет.
var
s,s1:string; l,p:integer; b:boolean;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
l:=pos(' ',s1);
b:=true;
while p>0 do
begin
delete(s1,1,p);
p:=pos(' ',s1);
if p>0 then b:=b and (l=p);
end;
if b then writeln('ДЛИНА');
end.
Пример:
<span>Введите строку:
мама мыла раму
ДЛИНА
</span>
Это смешные картинки, комиксы, приколы и т. п.
1-3, 2-2, 3-3,4-4,5-1, 6-4, 7-1, 8-1,9-3,10-1
113x=237(8)
237(8)=2×8²+3×8+7=128+24+7=159(10)
113(x)=1×x²+1×x+3=x²+x+3
x²+x+3=159
x²+x-156=0
D=1+624<span>=625
x=-1+25</span>/2=12