Contact: aviboots(AT)netvision.net.il
39,959 questions
51,901 answers
573 users
Program Example(output); var n:integer; s: String; code: Integer; begin s := '8976'; Val(s, n, code); writeln('n = ', n); writeln('code = ', code); end. (* run: n = 8976 code = 0 *)