Слова отделяются друг от друга одним пробелом, знаков препинания нет.
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)64*34=2176(симв.) -на одной странице
2)2176*9=19584(м) -столько места надо выделить
<span>информация представленная в форме пригодной для обработки компьютером 6 букв
это будет данные.
</span>
Извини здесь не получиться написать посмотри примеры в учебнике