Nhập vào một số nguyên dương a,in ra số nguyên dương b sao cho a+b là một số nguyên tố

VD:

input      output

5                 2

Giải thích vì 2+5=7

uses crt;

function isPrime(n: Integer): Boolean;
var i: Integer;
begin
  if n < 2 then
  begin
    isPrime := False;
    Exit;
  end;

  for i := 2 to Trunc(Sqrt(n)) do
  begin
    if n mod i = 0 then
    begin
      isPrime := False;
      Exit;
    end;
  end;

  isPrime := True;
end;

var a, b: Integer;
begin
  ReadLn(a);
  b := a + 1;

  while not isPrime(b) do
  begin
    b := b + 1;
  end;

  WriteLn(b - a);
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
`@`$\texttt{Pascal: }$

const MAX = 100000;
var prime : array[1..MAX] of boolean;
    i, j, a, b : longint;
begin
    for i := 1 to MAX do prime[i] := true;
    prime[1] := false;
    i := 2;
    while i * i <= MAX do 
         begin
        if prime[i] then 
             begin
            j := i * i;
            while j <= MAX do 
                 begin
                prime[j] := false;
                inc(j,i);
                 end ;
             end ;
        inc(i);
         end ;

    readln(a);
    b := 0;
    while true do 
         begin
        inc(b);
        if prime[a+b] then 
             begin
            write(b);
            break;
             end ;
         end ;
end.