Код: Выделить всё
program stroka;
uses crt;
var
s: string;
i, l: integer;
len: string;
begin
clrscr;
readln(s);
writeln(s);
i:=0;
repeat
if s[i]=' ' then begin
insert('...', s, i);
i:=i+4;
end
else
inc(i);
until i>=length(s)-1;
s:=s + '...';
writeln(s);
l:= length(s);
str(l,len);
writeln('Length = ' + len);
readln;
end.