procedure Tenta2 is

  Procedure Rakna (Size: in Integer; Size1: in Float; Size2: in Float; Langd1: out Float; Langd2: out Float) is

   begin
      if Size=0 then
     Langd1:=Size1;
     Langd2:=Size2;

      else
     if  Size1 > Size2 then
        Rakna(Size-1,Size1/2.0,Size2,Langd1,Langd2);

     elsif  Size2 > Size1 then
        Rakna(Size-1,Size2/2.0,Size1,Langd1,Langd2);

    end if;
    end if;

    end Rakna;
   Dump: Character;
   Size: Integer;
   Langd1,Langd2: Float;
begin
   Put("Vilket papper vill du veta storleken på? ");
   Get(Dump);
   Get(Size);
   Rakna(Size,1189.0,841.0,Langd1,Langd2);

   Put("Dimensionerna på ett A");
   Put(Size,Width=>0);
   Put(" papper är: ");
   Put(Langd1,Aft=>1,Exp=>0);
   Put("x");
   Put(Langd2,Aft=>1,Exp=>0);
   Put("mm.");
   end Tenta2;