t_id
1450
t_adddate
2005/01/17
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$R+} function d(a,b:string):Integer; begin d := Ord(a[1])-Ord(b[1]); end; var c: SmallInt; ch : char; begin ch:='A'; c := Byte(ch)-Byte('B'); WriteLn(c); WriteLn(d('a','b')); end.