Viết chương trình nhập vào số n từ bàn phím

program battap;

uses crt;

var n,i:longint;

begin

 clrscr;

  write('Nhap N= '); readln(n);

  for i:=1 to n-1 do

   if  (i mod 2=0) and  (i mod 3=0) then write(i,' ');

  readln;

end.