Pascalabc.net пользователь вводит с клавиатуры температуру в градусах и направление перевода (ф ⇒ с или с ⇒ ф). требуется перевести температуру в грудусы цельсия/фаренгейта и показать на экране. формулы перевода: градусы по цельсию = (градусы по фаренгейту - 32) / 1.8 градусы по фаренгейту = (градусы по цельсию x 1.8) + 32

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.