├ 测试数据 01：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 02：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 03：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 04：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 05：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 07：运行时错误...| 错误号: 216 | 存取非法

var

a:array[1..30000] of ansistring;

i,j,n,t,x:integer;

flag:boolean;

begin

i:=0;

repeat

flag:=false;

i:=i+1;

readln(a[i]);

if length(a[i])>=8 then flag:=true;

if flag then if (a[i][7]'6') or (a[i][8]'7') then flag:=false;

until flag;

for j:=1 to i do

writeln(a[j]);

n:=i;

t:=ord(a[n][2])-ord('a');

for i:=1 to n do

begin

for j:=1 to length(a[i]) do

begin

x:=ord(a[i][j]);

if ((x>=65) and (x