Procedure Sample;
var i,j,k,v:integer;
begin
 
 
 v:=0;
for i:=1 to 99 do
begin

   if i mod 2=0then
          continue;
 
  //Pair keys for '(' and ')'  
 
   k:=Fun1( Fun2(2) + Fun3(Fun4(5)) , Fun6(i,Func4(i)) );  
   
 
 
   
   // pair keys for 'begin' , 'end'
   for j:=1 to 99 do
   begin          
       v:=i*j+k;
       if v<50 then
          continue;
       
       if v>90 then
       begin
          break;
       end;
   end;    
end;




for i:=1 to 99 do
begin

   for j:=1 to 99 do
   begin
       if v>90 then
       begin
          break;
   end;
end;

 => Miss a End, Here
 
 
 

   
 Datee[Year][Monthes[Month]][Days[Day]]=v; // Corrent    
 
 
 Datee[Year][Monthes[Month]][Days[Day]=v;  ==> miss a ]
 
 
 Dates[Year][Monthes[Month]]Days[Day]]=v;  ==> miss [
     
 

end;