Viết chương trình nhập vào 1 số nguyên in ra màn hình các số chẵn từ 0 đến N

uses crt;

var N, i: integer;

Begin

   clrscr;

   write('Nhap so nguyen N: '); readln(n);

   i:=0;

   write('Cac so chan tu 0 toi ', N, ' la: ');

   while (i<=N) do

             begin

             write(i:4);

             i:=i+2;

             end;

   readln;

End.

uses crt;

var N, i: integer;

Begin

   clrscr;

   write('Nhap so nguyen N: '); readln(n);

   i:=0;

   write('Cac so chan to

             begin

             write(i:4);

             i:=i+2;

             end;

   readln;

End.