{ Program to generate a Fahrenheit - Celsius Comparison table }

program temptab2(output);
uses WinCrt;
var
   fahrenheit: integer;
   celsius: real;
begin
     fahrenheit := 0;
     while fahrenheit <= 100 do
     begin
          celsius := (fahrenheit - 32) * (5/9);
          writeln(fahrenheit:3, ' F = ', celsius:5:1, ' C');
          fahrenheit := fahrenheit + 5
     end
end.