Pascal de Celcius a ºFahrenheit

PROGRAM CELCIUS;
USES WINCRT;
VAR t_C,t_F:REAL;
BEGIN


ClrScr;


WRITE('Introduzca temperatura: (ºCelsius): ');
READLN(t_C);


t_F:=((t_C*9)/5)+32;


ClrScr;


WRITE(t_C:5:2); WRITE(' ºCelsius equivalen a ');
WRITE(t_F:5:2); WRITE(' ºFahrenheit');
END.