Program to produce F to C conversion table

	program  FtoC;
	var
		tc, tf, maxtemp: real;
	begin
	tf := 0.0;
	maxtemp := 212.0;
	while tf <= maxtemp do
		begin
		tc := (tf + 40.0)* 5.0 /9.0 - 40.0;
		writeln(tf, '   ', tc);
		tf := tf + 1.0;
		end;
	end.

Sample output: Ugly format