program pascal menghitung suhu

program Konversi_Suhu;

uses wincrt;

var

c,r,f,k:real;

begin

write ('Celcius = ');readln (c);

r:=c*0.8;

f:=(c*1.6)+32;

k:=c+273;

writeln (' <<<<<<<<<< KONVERSI SUHU >>>>>>>>>>> ');

writeln ('-------------------------------------------------');

writeln ('| CELCIUS | RHEAMUR | FAHRENHEIT | KELVIN |');

writeln ('------------------------------------------');

writeln ('|',C:6:0,'C |',R:6:0,'R |',F:6:0,'F |',K:6:0,'K |');

writeln ('------------------------------------------------');

readln;

end.