viết chường trình in ra mà hình các số chẵn và lẻ từ 1 đến 500000

uses crt;
var i:longint;
begin
clrscr;
   write('Cac so chan: ');
   for i:=1 to 500000 do
      if i mod 2=0 then write(i,' ');
   write('Cac so le: ');
   for i:=1 to 500000 do
      if i mod 2=1 then write(i,' ');
readln
end.

#minh gửi code  pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá 
#code pascal 

uses crt;
var i: longint;
begin
clrscr;
write('cac so chan : ' );
for i:=1 to 500000 do
if i mod 2 = 0 then write(i:6);
write('so le la : ');
for i:=1 to 500000 do
if i mod 2 = 1 then write(i:6);
write(i:6);
readln;
end.