. Задана строка символов. состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два

[Proskurina]

. Задана строка символов. состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два слова

[Mad_Cat]

readln(s);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
while pos(' ',s)=1 do delete(s,1,1);
while pos(' ',s)=length(s) do delete(s,length(s),1);
buf:=Copy(s,1,pos(' ',s)); delete(s,1,pos(' ',s));
buf:=buf+Copy(s,1,pos(' ',s));
s:=buf;