program konversi_suhu;

uses crt;
var
cc :byte; x:char ;
rm,fh :real;
begin
clrscr;
repeat
write('masukkan suhu celcius : ');readln(cc);
if (cc <= 100) then
begin
fh :=9/5*cc+32;
writeln('suhu fahrenheit setelah di konversi : ',fh:0:0);
writeln;
rm :=4/5*cc;
writeln('suhu reamour setelah dikonversi : ',rm:0:0);
end
else
writeln('input lagi');
until x='x';
write('masih mau:');readln(x);
readkey;
end.