{ нахождение наименьшего простого числа}
type arr = array[1..4] of integer;
var n,m,i: integer;
    a: arr:=(1,3,7,9);
    priz: boolean;
function simp(var n: integer): boolean;
var i,j: integer;
    priz: boolean;
begin
  priz:=true;  i:=2;
  j:=Round(sqrt(n));
  while i<=j do
  begin
    if (n mod i)=0 then
    begin
      priz:=false;
      break;
    end;
    i:=i+1;
  end;
  Result:=priz;
end;
{ основная программа }    
begin
  write('число:  ');  readln(n);
  n:=n*10;
  priz:=true;
  while priz do
  begin
    for i:= 1 to 4 do
    begin
      m:=n+a[i];
      if simp(m) then 
      begin
        writeln('наименьшее простое число = ',m);
        priz:=false;
        break;
      end;
    end;  
    n:=n+10;  
  end;
end.