var    s: string;    len, i, j: integer;begin    write('Input string: ');    readln(s);    len:= length(s);  
     i:= 1; {начинаем с первого символа в строке}    j:= 0; {сначала длина слова равна нулю}    while i<=len do begin        if s [i]<> ' ' then begin  {если очередной символ не пробел}            j:= j+1; {увеличиваем длину слова}            i:= i+1; {переходим к следующей букве}        end        else begin {если очередной символ пробел}            if j < 5 then begin  {если длина слова < 5}                delete(s,i-j,j+1); {вырезаем вместе с пробелом после слова}                len:= length(s);                i:= i-j; {i в начало на длину вырезанной подстроки}                j:= 0; {обнуляем длину слова}            end            else begin {если длина слова > 5}                i:= i+1; {переходим к следующей букве}                j:= 0; {обнуляем длину слова}            end;        end;    end;  
     if j < 5 then {если последнее слово < 5 букв}        delete(s,i-j,j);  
     writeln(s);  
readlnend.