АИ
Алексей Иванов
var
t: string;
i: boolean;
c, k, b: integer;
begin
write('text? ');
readln(t);
t := t + ' ';
for c := 1 to length(t) do
if not i and (t[c] <> ' ') then begin
b := c;
i := true;
end
else if i and (t[c] = ' ') then begin
if (c - b) = 3 then begin
for k := b to c - 1 do write(t[k]);
writeln;
end;
i := false;
end;
end.