Viết chương trình lập 2 số nguyên dương a, b từ bàn phím (a<b) đếm và đưa ra màn hình các số lẻ không chia hết cho 3 hoặc 5 trong phạm vi từ a đến b

Program BTT;
Uses crt;
Var a,b,i: longint;
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a,b);
        For i:=a to b do
                If (i mod 2 = 1) and (i mod 3 <>0) and (i mod 5<>0) then Write(i,' ');
        Readln
End.