Ответы и объяснения

2013-11-02T08:55:03+04:00
Var a, b: string;
    i: integer;
begin
     readln(a);
     for i := 1 to length(a) do
         if (a[i] in ['0'..'9']) then b := b + a[i];
     if (length(b) = 0) then
         Writeln('{ No nums }')
     else
         Writeln(b);
end.