program Whiletest {


var param,  temp : int;
    ulam : bool

param := Expr;
ulam  := Expr;

while Expr do {
  if Expr then 
      { ulam := Expr };
  if Expr then {
       print Expr;

       temp := Expr;
       while Expr do
          temp := Expr;

       if Expr 
         then {param := Expr}
         else {param := Expr}
     }
  };

print Expr

}