code pascal:
program dientic_tamgiacvuong;
uses crt;
var a,b,c:real;
begin

          clrscr;

          writeln(‘Nhap 2 canh goc vuong a, b’);

          readln(a,b);

          c:=sqrt(a*a + b*b);

          writeln(‘Do dai canh huyen la ’,c:4:1);

readln;

end.