var x:string;
i:byte;
begin
writeln('vvedi stroku=');
readln(x);
while length(x)>0 and x[1]=' ' do delete(x,1,1);
while x[length(x)]=' ' do delete (x,length(x),1);
i:=1;
while length(x)>0 do begin
i:=pos(' ',x);
if i=0 then break
end;
writeln(x);
end.
ПОМОГИТЕ ПЛИЗЗ! ЗАВТРА ЭКЗАМЕН!!