Program Suhu Celcius dan Fahrenheit

Program suhu_celsius_fahrenheit;
Uses wincrt;
var
  i,c:integer;
       f:real;
  begin
  writeln('--------------------------');
  writeln('  Celsius     Fahrenheit  ');
  writeln('--------------------------');
   c:=11;
  f:=51.8;
  for i:= 10 downto 0 do
  begin
        c:=c-1;
        f:=f-1.8;
  writeln('  ',c ,'          ',  f:2:2);
   end;
  writeln('--------------------------');
  end.