Program Menghitung Derajat Celcius Pada Pascal

Soal

Buatlah program untuk menghitung derajat celcius menjadi, reamur, farenheit, dan kelvin!

Listing Program 

program derajat;
uses crt;
var
 c,f,r,k:real;
begin
 clrscr;
 write('masukkan derajat celcius : ');readln(c);
 f:=1.8*c+32;
 r:=c*0.8;
 k:=c+273;
 write(c,'derajat celcius adalah ',r, 'derajat reamur adalah ',f, 'derajat farenheit adalah ',k,'derajat kelvin ');
 readln;
end.

Output Program