Số nguyên tố chẵn là các số nguyên tố có tổng các chữ số chia hết cho 2. Yêu cầu: Viết chương trình liệt kê ra các số nguyên tố chẵn bé hơn hoặc bằng n 9210n . Dữ liệu vào: Nhập vào từ bàn phím số nguyên dương n 9210n . Dữ liệu ra: Ghi ra màn hình các số nguyên tố chẵn bé hơn hoặc bằng n trên cùng một dòng và các số cách nhau một khoảng trắng.pascal

uses crt;
var n,i:longint;
function NT(a:longint):boolean;
var i,dem:longint;
        begin
         dem:=0;
         for i:=1 to a do if(a mod i=0)then inc(dem);
         NT:=dem=2;
        end;
function TPT(a:longint):longint;
        begin
         TPT:=0;
         while a<>0 do
                begin
                 TPT:=TPT+a mod 10;
                 a:=a div 10;
                end;
        end;
begin
 clrscr;
  readln(n);
  for i:=1 to n do if(NT(i))and(TPT(i)mod 2=0)then write(i,' ');
 readln;
end.