Konverter suhu

program suhu;
uses wincrt;
var celcius:integer;
    reamur,fahrenhait,kelvin:real;
begin
     clrscr;
     writeln('program konversi suhu');
     writeln('---------SaGathespy--------');
     write('suhu dalam celcius:');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     kelvin:=273.15+celcius;
     writeln('suhu dalam reamur=',reamur:5:2);
     writeln('suhu dalam fahrenhait=',fahrenhait:5:2);
     writeln('suhu dalam kelvin=',kelvin:5:2);
     readln;
end.