Vct nhập 2 số nguyên a,b(b>a,b-a<100). In ra các ước của 2 trong đoạn a,b Giúp mình với

*Không kiểm tra dữ liệu a,b

program in_boi;
uses crt;
var a,b,i:longint;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    for i:=a to b do
        if i mod 2=0 then write(i,' ');
    readln;
end.

*Kiểm tra điều kiện a,b

program in_boi;
uses crt;
var a,b,i:longint;
begin
    clrscr;
    repeat
        write('Nhap a: ');  readln(a);
        write('Nhap b: ');  readln(b);
        if (a>=b) or (b-a>=100) then writeln('Khong du dieu kien. Nhap lai.');
    until (a<b) and (b-a<100);
    for i:=a to b do
        if i mod 2=0 then write(i,' ');
    readln;
end.