EJERCICIO HIPOTENUSA

AQUI LES DEJO ESTE OTRO PROGRAMITA QUE SE LLAMA 

"CALCULAR HIPOTENUSA DE UN TRIANGULO RECTANGULO"

PROGRAM EJER20; 

       USES CRT;

       VAR cateto1,cateto2:REAL;

       VAR hipotenusa:REAL;

BEGIN

       cateto1:=5;

       cateto2:=5;

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

       ClrScr;

       WRITE ('HIPOTENUSA DEL TRIANGULO: ');

       WRITE (hipotenusa:5:2); WRITE (' cm');

READ

END.