var 
a:real;
begin
writeln ('Введите температуру в градусах по Фаренгейту');
readln (a);
writeln ('Температура по Цельсию равна ',(a-32)*(5/9));
end.