Bạn cần cày chăm chỉ, chất lượng thì mới có nhóm cho bạn vào(cũng có thể là nhóm cao điểm nhất đấy
program chanle;
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
if n mod i=0 then write(n,' la so chan')
else write(n,' la so le');
readln;
end.