procedure tvaDatum is








   Time, Time2, timetemp : Date_Type;
   X : Integer := 0;
begin
   Get(Time);
   Skip_Line;
   New_Line;
   Get(Time2);
   New_Line;
   Timetemp := Time;

   loop
      if Timetemp < Time2 then
	 timetemp := Next_Date(Timetemp);
	 X := X+1;
	 if Timetemp = Time2 then
	    Put("Det andra datumet är ");
	    Put(X, Width => 0);
	    Put_Line(" dagar efter det första.");
	    exit;
	    end if;
      elsif Timetemp > Time2 then
	 Timetemp := Previous_Date(Timetemp);
	 X := X+1;
	 if Timetemp = Time2 then
	    Put("Det andra datumet är ");
	    Put(X, Width => 0);
	    Put_Line(" dagar innan det första.");
	    exit;
	 end if;
      end if;
      end loop;




end tvaDatum;