with Text_IO; use Text_IO;

procedure Prime is
	package Int_IO is new Integer_IO(Integer); use Int_IO;

	User_Input : Integer;

	function Is_Prime(Number : Integer) return Boolean is
	begin
		-- Your code goes here, in place of the following line
		return True;
	end Is_Prime;
	
begin
	Put("Number?");
	Get(User_Input);
	
	if Is_Prime(User_Input) then
		Put_Line("Prime");
	else
		Put_Line("Not Prime");
	end if;
end Prime;