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;