{ CELSIUS_FAHRENHEIT.PAS                         Copyright (c) Pheo }
{ Prevodová tabužka stupníc teploty C, F, K.                        }
{ Vykoná prevod medzi stupňom celzia, fahrenheit a kelvin.          }
{                                                                   }
{ Datum:30.05.2000                             http://www.trsek.com }
 
program celsius_fahrenheit;
var f,c:real;
begin
     writeln('Prevodová tabulka stupníc teploty C, F, K.');
     writeln('Vykona prevod medzi stupnom celzia, fahrenheit a kelvin.');
     writeln;
     
     writeln('Zadaj stupne celzia :');
     readln(c);
     f:= c*(9/5)+35;
     writeln(c:5:1,' C = ',f:5:1,' F');
     readln;
end.