Nhập vào số nguyên n bất kỳ viết chương trình A)Kiểm tra n số chẵn hay lẻ B)Số n chia hết cho 5 không

uses crt;
var n:longint;
begin
clrscr;
   write(‘Nhap n: ‘); readln(n);
   if n mod 2=0 then writeln(n,’ la so chan’) else writeln(n,’ la so le’);
   if n mod 5=0 then writeln(n,’ chia het 5′) else writeln(n,’ khong chia het 5′);
readln
end.