1. program zhong;      
2. var     
3.  a,b:longint;      
4. begin     
5.  while not eof do     
6.   begin     
7.    readln(a);      
8.    b:=a-1911;      
9.    writeln(b);      
10.   end;      
11. end.    
12. 为什么测试点10通不过？

可能測資的最後多了點什麼東西......

呼叫江老師！

我這樣寫可以過：

var a:longint;
begin
 repeat
  readln(a);
  if a>0 then writeln(a-1911);
 until eof;
end.

這題是設計給連迴圈都還沒學過的同學寫的，所以輸入只有一行。但是第 10 個測資不小心在後面多打了一個空行，已經修正，謝謝提醒。