CASE OF

PROGRAM KEMIRINGAN_SEGITIGA;
USES CRT ;


VAR ALAS,TINGGI,MIRING:REAL;
BEGIN
CLRSCR;
WRITE ('PANJANG ALAS = ');
READLN(ALAS);
WRITE('TINGGI SEGITIGA = ');
READLN (TINGGI);
MIRING := SQRT((ALAS*ALAS)+(TINGGI*TINGGI));
WRITE('PANJANG KEMIRINGAN SEGITIGA ADALAH=',MIRING:2:2);
READLN;
END.