Var
 Pr:Array[1..200] of Word;
 Npr,p,q:Word;

Procedure Find_Primes;
var
 i,j:Word;
 b:boolean;
begin
 Npr:=1;
 Pr[1]:=3;
 for i:=2 to 200 do
  begin
   b:=true;
   for j:=1 to Npr do
    if ((2*i+1) mod Pr[j])=0 then b:=false;
   if b then
    begin
     Inc(Npr);
     Pr[Npr]:=2*i+1;
    end;
  end;
end;

Begin
 Find_Primes;
 Writeln('Result 1:');
 for p:=3 to 150 do
  for q:=1 to Npr do
   if p=Pr[q] then write(p:4);
 Writeln;
 Writeln;
 Writeln('Result 2:');
 for p:=130 to 400 do
  for q:=1 to Npr do
   if p=Pr[q] then write(p:4);
 Writeln;
 Readln
End.