Var
a,b:real;
s:String;
begin
Writeln('Введите температуру');
Readln(a);
Writeln('Введите направление перевода (Ф=>С или С=>Ф)');
ReadLn(s);
If s[1] ='Ф' then
begin
b:=(a-32)/1.8;
Writeln(a,'° по Фаренгейту = ', b, '° по Цельсию')
end
else
If (s[1] ='С') then
begin
b:=(a*1.8)+32;
Writeln(a,'° по Цельсию = ', b, '° по Фаренгейту')
end
else
Writeln('Входная строка имела неверный формат');
end.