{ example of constant definition part }programconvert(output);constaddin=32;mulby=1.8;low=0;high=39;seperator='------------';vardegree:low..high;beginwriteln(seperator);fordegree:=lowtohighdobeginwriteln(degree,'c',round(degree*mulby+addin),'f');end;writeln(seperator)end.