with Text_IO;
use Text_IO;
procedure overflow is
        package Int_IO is new Text_IO.Integer_IO(INTEGER);
        use Int_IO;
        x: INTEGER;
        count : INTEGER :=0;
        y : INTEGER :=1;
begin
        Get(x);
        while count < 25 Loop
                count := count + 1;
                y := y * x;
                Put(y);
                New_Line;
        end Loop;
end;