ai vô nhóm tui ko VCT tính tổng nhập vào n sau đó kiểm tra n chẵn hay n lẻ

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.