Kiểm tra số nguyên tố - Đầu vào : số nguyên n `n<=10^18` - Nếu là số nt, in ra yes, ngược lại in ra no

Anh không bảo ngôn ngữ nào em lấy code pascal nhé...

Var n,i: int64;
Begin
 Read(n);
 If n < 2 then begin Write('no'); exit; end
 else
  begin
   For i:= 2 to trunc(sqrt(n)) do
     if n mod i =0 then 
       begin
         Write('no');
         exit;
        end;
  end;
 Write('yes');
end.