viết CT nhập n số chẵn liên tiếp từ 10(mỗi hàng 10 số)

uses crt;
var i,a:longint;
begin
clrscr;
   writeln(‘Nhap cac so chan lien tiep tu 10: ‘);
   repeat
      read(a);
      inc(i); if i=10 then begin writeln; i:=0; end;      
   until 1=2;
readln
end.