1package Loop_Optimization6 is
2  A : Integer := 0;
3  procedure Main;
4end Loop_Optimization6;
5