


 MIDletPascal   : 

  for  
  while 
  repeat .. until  
  break 
  if .. then .. else  
    
  /  
 
  


 for 

 for   : 

for loopIndex :=  to  do 
begin 
  ; 
end;  

 ,      () ,   to  downto. 

       1  10: 

  ... 
  for i:= 1 to 10 do 
  begin 
    sum := sum + i; 
  end; 
  ... 

     ,   begin  end  . 




 while 

 while   : 

  while  do 
  begin 
    ; 
  end;  

,     ,   : 

  ... 
  while (getKeyClicked = KE_NONE) do 
  begin 
    delay(100); 
  end; 
  ... 

     ,   begin  end  . 





 repeat .. until 

 repeat .. until   : 

repeat 
  ; 
until ; 

    ,   : 

  ... 
  repeat 
    delay(100); 
  until (getKeyClicked <> KE_NONE); 
  ... 





 break 

 break     for, while  repeat. 

  ... 
  repeat 
    for i := 1 to 10 do 
    begin 
      if doSomething(i) = -1 then break; //    for 
    end; 

  until getClickedCommand <> emptyCommand; 
  ... 





 if .. then .. else. 

 if .. then .. else   : 

if  then 
begin 
  ; { ,    } 
end 
[ 
else 
begin 
  ; { ,    } 
end; 
]  

 else   .      ,   begin  end   . 





  

          : 

   := ; 

   , ,    . 