giúp em vs mọi người viết chương tính nhập số tự nhiên n và cho biết n là số chắn hay số lẻ? n có phải là số nguyên nguyên tố không?

uses crt;
var n: longint;

function prime(n: longint): longint;
var i: longint;
begin
    if n < 2 then exit(0);
    for i:=2 to trunc(sqrt(n)) do
        if n mod i = 0 then exit(0);
    exit(1);
end;

begin
clrscr;
    readln(n);
    
    if n and 1 = 1 then writeln('Le') else writeln('Chan');
    if prime(n) = 1 then writeln('YES') else writeln('NO');
readln;
end.

program de1;
uses crt;
var n,i,d:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    if n mod 2=0 then writeln('n la so chan')
    else writeln('n la so le');
    for i:=1 to n do
    if n mod i=0 then d:=d+1;
    if d=2 then write(n,' la so nguyen to')
    else write(n,' ko la so nguyen to');
    readln
End.