<-HOME  <-FLOWCHART
PROGRAM Number1;
USES crt;
VAR celcius:integer;
    r,f:real;
BEGIN
     clrscr;
     write('Input Celcius Temperature:');
     readln(celcius);
     f:=((celcius/5)*9)+32;
     r:=(celcius/5)*4;
     writeln('Temperature in Fahrenheit is : ',f:8:2);
     writeln('Temperature in Romer is :      ',r:8:2);
     writeln;
     write('PROGRAM BY MISS ORATHAI JAIYAH 4411063');
END.