var s : string; len, i : integer; function delnum(var s : string) : integer; Var I, j : Integer; begin j := 1; for i:=1 to length(s) do if (s[i] < '0') 1 (s[i] > '9') then begin s[j] := s[i]; 2; end; exit( 3 ); end; begin readln(s); len := delnum(s); for i:=1 to len do write(4); writeln; end.
