Code pascal lỗi 106

[Trang_Pham_Thu (Trang Phạm Thu)]

Mọi người giúp em ktra xem có lỗi ko ạ? Em chạy trên pascal ổn mà nộpbài lên hệ thống thi lại báo là lỗi 106

var t,i:longint;
a,b: longint;
x:array[1..100000] of longint;
begin
  readln(t);
  for i:=1 to t do readln(x[i]);
  for i:= 1 to t  do if x[i] mod 2=0 then writeln(x[i] div 2,'  ', x[i]-x[i] div 2)
    else if x[i] <10 then writeln(-1)
     else begin
          a:= x[i] div 2 -4; b:= x[i] -a;
          if a mod 10=0 then writeln(-1)
             else writeln( a,'  ', b);
             end;
          readln;
    end.

[catlord]

cũng muốn giúp mà không biết đề
code cho ai can

var t,i:longint;
a,b: longint;
x:array[1..100000] of longint;
begin
readln(t);
for i:=1 to t do readln(x[i]);
for i:= 1 to t do if x[i] mod 2=0 then writeln(x[i] div 2,' ', x[i]-x[i] div 2)
else if x[i] <10 then writeln(-1)
else begin
a:= x[i] div 2 -4; b:= x[i] -a;
if a mod 10=0 then writeln(-1)
else writeln( a,' ', b);
end;
readln;
end.

[Trang_Pham_Thu (Trang Phạm Thu)]

em gửi đề bài ạ

[rogp10]

@Trang_Pham_Thu

readln;

Bỏ dòng này đi bạn .

[Trang_Pham_Thu (Trang Phạm Thu)]

@catlord

var t,i:longint; a,b: longint; x:array[1…100000] of longint; begin readln(t); for i:=1 to t do readln(x[i]); for i:= 1 to t do if x[i] mod 2=0 then writeln(x[i] div 2,’ ‘, x[i]-x[i] div 2) else if x[i] <10 then writeln(-1) else begin a:= x[i] div 2 -4; b:= x[i] -a; if a mod 10=0 then writeln(-1) else writeln( a,’ ', b); end; readln; end.

mình có bỏ rồi nhưng chương trình vẫn báo lỗi