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.

>