with ada.text_io; use ada.text_io; 
 
procedure tennis  is 
    type Game_Score is range 0 ..  Natural'last;
    subtype Tie_Break_Game_Score is Game_Score range 0 .. 7;
    type Set_Score is range 0 .. 3;

    package Game_IO is new ada.text_io.integer_io(Game_Score);
    use Game_IO;

    subtype Set_Score_Three is Set_Score range 0 .. 2;

    g1, g2: Game_Score := 0;
    s1, s2: Set_Score := 0;
begin
    put(g1);

    g1 := g1 +1;
    s1 := Set_Score(g1) +1;

end tennis;