%vriskei touw prwtous didymous prwtous arithmous pou einai megaliteroi tou
%N=1000

%sets N=1000
N=1000;

while ~( isprime(N) && isprime(N+2) )
       N=N+1; 
end

disp('Oi prwtoi didymoi prwtoi arithmoi pou einai')
disp(['megalyteroi tou 1000 einai oi ', num2str(N),' kai ', num2str(N+2)])