{Соотношение температур по Фаренгейту (F) и Цельсию (С) следующее
 F=1,8С +32, 
 по Кельвину и Цельсию следующее К=С + 273. 
Подсчитать какова температура по Фаренгейту и Кельвину сегодня. Результат на экран вывести в виде:
температура по С = <результат>, 
температура по F = <результат>,
температура по К = <результат>}
uses crt;
var f,c,k:real;
begin
clrscr;
Write('Введите градусы по Цельсию:');
readln(c);
f:=1.8*c+32;
k:=c+273;
writeln('Температура по С=',c);
writeln('Температура по F=',F);
writeln('Температура по K=',K);
end.