number 3

program task_3;

var
  s: string;
  i, k: integer;

begin
  writeln('Введите строку');
  readln(s);

  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then begin k := i;break; end; //находим 1 пробел присваиваем его индекс переменной и сразу же выходим из цикла (так как если у нас будет 2 пробела в строке, то к будет равно индексу последнего пробела)
  end;

  delete(s, 1, k); // теперь надо удалить все элементы строки от 1 до катого (к) (это я загуглил, мб вам таким пользоваться нельзя...)
  writeln('Результат:');
  writeln(s);

end.