I can't believe it.
For pascal:
if I use 'readln' then I will WA,
but if i use 'read' then I will AC.
if you do think your program is right,please let 'read' take the place of 'readln',although sample input uses 'readln'.In this way,you will AC.
PS:'read' is best.