with Ada.Integer_Text_IO;

with Ada.Text_IO;                                                                                      

procedure Prime_Check_Program is    

   use Ada.Integer_Text_IO;

   Number : range 2..Integer'Last;                           

begin                                               

   get(Number);

   for Index in 2..(Number/2+1);

      if Number res Index = 0 then

         Ada.Text_IO.Put("Is not prime.");

         return;

       end if;

   end loop;

   Ada.Text_IO.Put("Is prime.");

exception                                              

   when Constraint_Error =>                              

      Text_Io.Put_Line("Not valid.");                

      raise;            

end Prime_Check_Program;