begin
comment transform of integer string presentation to integer number using encode();
	string (10) s;
	string (1) ch;
	integer n, i, c;
	n := 0;
	s := "23125";
	
	for i := 1 until 10 do
	begin
		ch := s(i|1);
		c := encode(ch);
		if( c < encode("0") or c > encode("9") ) then goto finish;
		n := n*10 + c;
	end;
finish:;
	write(n);
end.