Program Konversi suhu

uses wincrt;

var

   a,b,c,d:integer;

begin

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

     writeln('    celcius   fahrenheit   reamur   kelvin');

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

     for a:=0 to 10 do

     begin

          b:=18;

          c:=2;

          d:=273;

          write(a*10:10,a*b+32:10,a*4*c:10,a*10+273:10);

     writeln;

             end;

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

     writeln(' daftar list celcius @andeebanditz......!!!!');

end.