program string_13-
var s,slovo:string-
i,k:integer-
p:boolean-
begin write(‘введите строку:’)-
readln(s)-
i:=1-
p:=true-
slovo:=»-
k:=0-
while s[i]<->-‘.’ do
begin if s[i]<->-‘ ‘
then begin slovo:=slovo+s[i]-
k:=k+1
end
else begin if k=3
then begin writeln(slovo)-
p:=false
end-
slovo:=»-
k:=0-
end-
i:=i+1
end-
if k=3 then begin writeln(slovo)-
p:=false
end-
if p then writeln(‘в данной строке нет слова из трех букв’)-
readln-
end.