viết chương trình pascal nhập n xuất ra màn hình dòng 1. các số chẵn từ 2 đến n dòng 2. các số lẻ từ 2 đến n dòng 3. các số chẵn và chia hết cho cả 3 và 6 từ 1 đến n dòng 4. tổng các số lẻ từ 1 đến n giúp mình vs

uses crt;
var n,i,s:longint;
begin
clrscr;
   readln(n);
   write('Cac so chan tu 2 den ',n,': ');
   for i:=2 to n do
      if (i mod 2=0) then write(i,' ');writeln;
   write('Cac so le tu 2 den ',n,': ');
   for i:=2 to n do
      if (i mod 2=1) then write(i,' '); writeln;
   write('Cac so chan ma chia het cho ca 3 va 6 tu 1 den ',n,': ');
   for i:=1 to n do
      if (i mod 2=0) and (i mod 3=0) and (i mod 6=0) then
         write(i,' ');writeln;
   for i:=1 to n do
      if (i mod 2=1) then inc(s,i);
   writeln('Tong cac so le tu 1 den ',n,': ',s);
readln;
end.

Program BTT;
Uses crt;
Var n,i,t: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        Write('Cac so chan tu 2 -> ',n,' la: ');
        For i:=2 to n do
                If i mod 2 = 0 then Write(i,' ');
        Writeln;

        Write('Cac so le tu 2 -> ',n,' la: ');
        For i:=2 to n do
                If i mod 2 = 1 then Write(i,' ');

        Writeln;

        Write('Cac so chan chia het cho 3 va 6 tu 1 -> ',n,' la: ');
        For i:=1 to n do
                If (i mod 2 = 0) and (i mod 3 = 0) and (i mod 6 = 0) then Write(i,' ');
        Writeln;

        t:=0;
        For i:=1 to n do
                If i mod 2 = 1 then t:=t+i;
        Write('Tong cac so le tu 1 -> ',n,' la: ',t);

        Readln
End.