program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Character;
  var
  input: String;
  i: Integer;
begin
  Writeln('Введите последовательность(строку)');
  Readln(input);
  for i:= Low(input) to High(input) do
  begin
   if (IsNumber(input[i])) then Write(input[i], ' ');
  end;
  Readln;
end.