Verified answer

Программа:

Pascal:

var

 st: string;

 i, n: integer;

begin

 writeln('st = ');  readln(st);

 for i := 1 to length(st) do

   if st[i] = ' ' then n := i;

 delete(st, n, 1);

 writeln(st);

end.