Program Konversi Suhu

program Konversi_Suhu;
uses
WinCrt;
var a,b : integer;
c:real;
Begin
Write('masukkan suhu dalam celsius '); readln(a);
b:=a+273;
Writeln('suhu dalam kelvin adalah ',b);
c:=(9/5*a)+32;
writeln('suhu dalam fahrenhait adalah ',c:5:3);
end.