Составьте программу для f градусов по фаренгейту в градусы по цельсию c= 5/9 (f-32). программа паскаль

Program FC; 
var c,f:real; 
begin 
writeln('Enter, please temperature Fahrenheit:"); 
readln(f); 
c:=(f-32)*5/9; 
writeln("Temperature in Centigrade:", c); 
readln; 
end.так ?