Conversion Temperature

program convertoftemperature;
uses wincrt;
var F:integer;
C,R,k:real;
begin
write('Write temperature in Farenhet :');readln(F);
C:=(F-32)/9*5;
R:=(F-32)/9*4;
K:=(C+273);
writeln('Celsius :', C:6:2);
writeln;
writeln('Reamur :', R:6:2);
writeln;
writeln('kelvin :', K:6:2);
end.

if we run the statement,we are get output like this :