content_image/828543.jpg
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: 

<img src='content_image/828543.jpg'>

