Program Konversi Suhu dalam Pascal

program Konverter_Suhu;
Uses wincrt;
var
c,r,f,k:real;
p:string;

begin
     write('Masukkan suhu dalam derajat Celcius: ');  readln(c);
     r:=4/5*c;
     f:=(9/5*c)+32;
     k:=c+273;
     p:='dingin';
     writeln('Suhu dalam Reamur: ',r:4:1);
     writeln('Suhu dalam Fahrenheit: ',f:4:1);
     writeln('Suhu dalam Kelvin: ',k:4:1);
     if c<20 then
     begin
     Write('Suhu terkategori ',p);
     end;
     readln;
end.