c:/gdsf/web/fuentes_pascal/hipotenusa

PROGRAM EJER20B;

USES CRT;
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.