var st:string;
    i:byte;

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

i:=1;
While St[i]=#32 do
      Begin
      Inc(i);
      end;

Delete(St,1,i-1);

Writeln(St);
end.