Membuat Program Perbandingan Suhu via Turbo Pascal

uses wincrt;
var
  celcius,fahrenheit,reamur:real;
  hitung1,hitung2:integer;
begin
  writeln('--------------------------------------------------');
  writeln(' Celcius           Fahrenheit             Reamur  ');
  writeln('==================================================');
  for hitung:=1 to 5 do
  begin
    fahrenheit:=9/5*hitung2+32;
    reamur:=4/5*hitung2;
    writeln(hitung2:8,'          ',fahrenheit:8:0,'             ',reamur:8:0);
    hitung2:=hitung2+10;
  end;
  writeln('==================================================');
end.

Semoga bermanfaat :)