Program Suhu

Program suhu;
uses wincrt;
var
celcius,kelvin:integer;
fahrenheit:real;
begin

write('Masukkan suhu dalam celcius = ');readln(celcius);
fahrenheit:=(9/5*celcius)+32;
kelvin:=celcius+273;
writeln('Suhu dalam fahrenheit = ',fahrenheit:5:2);
writeln('Suhu dalam kelvin = ',kelvin);
end.