var st:string;
    i,count:byte;

Begin
Write(' Введите строку: '); Readln(St);

Count:=0;

for i:=1 to Length(St) do if (St[i] = #32) then Inc(Count)
                                           else
                                               Begin
                                               Delete(St,1,Count);
                                               break;
                                               end;
Writeln(St);
end.