uses crt;
var n:longint;
function isPrimeNumber(n:longint):boolean;
var i:longint;
begin
   if n<2 then exit(false);
   for i:=2 to trunc(sqrt(n)) do
      if n mod i=0 then exit(false);
   exit(true);
end;
function sum(a:longint):boolean;
var s:longint;
begin
   s:=0;
   while a<>0 do
      begin
         inc(s,a mod 10);
         a:=a div 10;
      end;
   if s mod 2=0 then exit(true);
   exit(false);
end;
begin
clrscr;
   readln(n);
   while(isPrimeNumber(n)=false)or(sum(n)=false)do inc(n);
   write(n);
readln;
end.

Nếu có sai thì bạn nói mình nhé.

==================================

program Hello;
uses crt;
var n,t,a,s: longint;
function tnt(j:longint): boolean;
    begin
         if j <= 1 then exit(FALSE)
    else if j <= 3 then exit(TRUE)
    else if (j mod 2 = 0) or (j mod 3 = 0) then exit(FALSE); 
    t:= 5;
    while t*t <= j do
        begin
            if (j mod t = 0) or (j mod (t + 2) = 0) then exit(FALSE); 
            t := t + 6;
        end;
    exit(TRUE);
    end;
begin
    clrscr;
    readln(n);
    while TRUE do
        begin
            a:=n;
            if tnt(n) = TRUE then
                while  a > 0 do
                    begin
                        s:= s + (a mod 10);
                        a:= a div 10;
                    end;
            if (s mod 2 = 0) and (s <> 0) then begin write('Mat khau la: ', n); break; end
            else begin n:=n+1; s:=0; end;
        end;

    readln;
end.