program {
  real pReal;
  string puff;
  write ("Specify real>> ");  read (pReal);
  write ("Specify string>> ");  read (puff);
  case (puff) of
    "a", "A": {write("a or A");
		case (pReal) of
		  
		  4.1: write("   inside = ",4.1);
		  6.0: write("   inside = ",6);
		  2.0: write("   inside = ",2);
		end;
	}
    "b", "B": write("b or B"); 
  end;
}