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]&lt-&gt-‘.’ do

begin if s[i]&lt-&gt-‘ ‘

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.