program exisosi_thermokrasias; uses crt; var C,F:real; BEGIN clrscr; writeln('Give Farenheit degree F= '); readln(F); {Calculations following} C:=5*(F-32)/9; writeln('C= ',C); readln; END.