Program Menghitung konversi Suhu Dengan Procedure

uses wincrt;

var
   cl,fh,rm,kv:integer;
   grs:string;

procedure hitung_konversi;
begin
for cl:=0 to 10 do
begin
     fh:=18*cl+32;
     rm:=2*cl*4;
     kv:=cl*10+273;
     write(cl*10:12,fh:12,rm:10,kv:12);
     writeln;
     end;
     end;
     begin
          grs:='-----------------------------------------------------------';
          writeln(grs);
          writeln('***           Program Menghitung konversi Suhu          ***');
          writeln(grs);
          writeln;
          writeln('         Celcius  Fahrenheit   reamur   Kelvin');
          writeln;
       
     hitung_konversi;
     writeln(grs);
     writeln('              Procedure Hitung Konversi Suhu @andeebanditz');
     end.