program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

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