const ober = 10000;
var
   a,b,c,weiter;

begin
   a:= 1;
   while a <= ober do
   begin
      b:= 2;
      if b < a then weiter:= 1;
      while weiter = 1 do
      begin
         c:= a/b;
         if a - c*b = 0 then weiter:= 0;
         b:= b+1;
         if b = a then weiter:= 0;
      end;
      a:= a+1
   end;
end.
