Viết chương trình vào n bất kì xuất ra các số chẵn từ 1 đến n. Xuất ra các số chia hết cho 3 từ 1 đến n. Xuất ra số chia hết cho 3 và 4 từ 1 đến n. Xuất ra các số nguyên

Uses crt;
Var n: longint;
Function ngto(a:longint):boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;
Begin
        Clrscr;
        Write(‘Nhap n: ‘); Readln(n);
        Write(‘Cac so chan: ‘);
        For i:=1 to n do
                If i mod 2 = 0 then Write(i:5);
        Writeln;
        Write(‘Cac so chia het cho 3: ‘);
        For i:=1 to n do
                If i mod 3 = 0 then Write(i:5);
        Writeln;
        Write(‘Cac so vua chia het cho 3 vua chia het cho 4: ‘);
        For i:=1 to n do
                If (i mod 3=0) and (i mod 4=0) then Write(i:5);
        Writeln;
        Write(‘Cac so nguyen to: ‘);
        For i:=1 to n do
                If ngto(i) then Write(i:5);
        Readln
End.