<-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.