c:/gdsf/web/fuentes_pascal/convertir

PROGRAM EJER21B;

USES CRT;
VAR Fahrenheit, Celsius : REAL;
VAR T1C, T2F : REAL;
VAR respuesta : CHAR;
BEGIN
CLRSCR;
REPEAT
    BEGIN
    WRITE ('�DESEA PASARLO A FAHRENHEIT O CELSIUS? F/C: ');
    READLN (respuesta);
    WRITELN ('');
    END;
UNTIL (respuesta = 'C') OR (respuesta = 'F') OR
        (respuesta = 'c') OR (respuesta = 'f');
IF UPCASE (respuesta) = 'F' THEN
     BEGIN
     WRITELN ('Introduzca los grados para pasar a Fahrenheit: ');
     WRITE ('Celsius: ');
     READLN (Celsius);
     Fahrenheit := ( (9 * Celsius) / 5) + 32;
     WRITE (Fahrenheit : 5 : 2, ' grados Fahrenheit.');
     WRITELN (' ');
     END
ELSE
     IF UPCASE (respuesta) = 'C' THEN
        BEGIN
        WRITELN ('Introduzca los grados para pasar a Celsius: ');
        WRITE ('Fahrenheit: ');
        READLN (Fahrenheit);
        Celsius := ( (Fahrenheit - 32) / 9) * 5;
        WRITE (Celsius : 5 : 2, ' grados Celsius.');
        END;
END.