26  Pascal User Manual  var  Degree:  CelciusRange;  begin  for  Degree  := Low  to  High  do  begin  Write (Output,  Degree,  ,  C' ,  Separator) ;  Write (Output,  Round(Degree*Factor  +  Bias) ,  ,  F' ) ;  if odd (Degree)  then Writeln(Output)  else Write (Output,  Blanks)  end;  Write In (Output)  end  Produces as results:  -20  C  -4  F  -19  C  -2  F  -18  C  0  F  -17  C  1  F  -16  C  3  F  -15  C  5  F  -14  C  7 F  -13  C  9  F  -12  C  10  F  -11  C  12  F  -10  C  14  F  -9  C  16  F  -8  C  18  F  -7  C  19 F  -6  C  21  F  -5  C  23  F  -4  C  25  F  -3  C  27  F  -2  C  28  F  -1  C  30  F  0 C  32  F  1  C  34  F  2 C  36  F  3 C  37  F  4  C  39  F  5 C  41  F  6 C  43  F  7  C  45  F  8 C  46  F  9  C  48  F  10  C  50  F  11  C  52  F  12  C  54  F  13  C  55  F  14  C  57  F  15  C  59  F  16  C  61  F  17  C  63  F  18  C  64  F  19  C  66  F  20  C  68  F  21  C  70  F  22  C  72  F  23  C  73  F  24  C  75  F  25  C  77  F  26  C  79  F  27  C  81  F  28  C  82  F  29  C  84  F  30  C  86  F  31  C  88  F  32  C  90  F  33  C  91  F  34  C  93  F  35  C  95  F  36  C  97  F  37  C  99  F  38  C  100  F  39  C  102  F 