Pascal Hipotenusa de un Triangulo

PROGRAM HIPOTENUSA;

        USES WINCRT;

        VAR cateto1,cateto2:REAL;

        VAR hipotenusa:REAL;

BEGIN

        {Con este programa podremos calcular la hipotenusa de un

    triangulo}

        ClrScr;

        WRITE ('PARA CALCULAR LA HIPOTENUSA DEL TRIANGULO ');

        WRITELN ('ESCRIBA LOS CATETOS: ');

        WRITELN (' ');

        WRITE ('Cateto1: ');    READLN (cateto1);

        WRITE ('Cateto2: ');    READLN (cateto2);

        WRITELN (' ');

        hipotenusa:= sqrt(sqr(cateto1) + sqr(cateto2));

        WRITE ('HIPOTENUSA DEL TRIANGULO: ');

        WRITE (hipotenusa:5:2);

END.