Menampilkan Konversi Suhu Menggunakan Perulangan While do Pada Pascal

Assalamualaikum😀😀😀😀

While do digunakan untuk melakukan proses perulangan suatu statement atau blok statement terus-menerus selama kondisi logika pada While masih bernilai benar.
bila anda ada yang memerlukannya, silahkan saja gunakan script program dibawah ini yang mungkin anda memerlukan untuk tugas akhir pada perkuliahan anda hahahha.

1. uses wincrt;
   var c:integer;
       f,r:real;
   begin
        write('C    R     F');
        c:=0;
        while c<100 do
   begin
           writeln('   ');
           c:=c+10;
           write(c,'   ');
   begin
        r:=4/9*c;
        write(r:0:0,'  ');
   begin
        f:=9/5*c+32;
        write(f:0:0,' ');
        end;
        end;
        end;
        end.

keterangan : f = (9/5 * c) + 32; r=(4/9*c)