program canhgocvuong;
uses crt;
var ch,cgv1,cgv2:real;
begin
clrscr;
write('Nhap do dai canh huyen: '); readln(ch);
write('Nhap do dai canh huyen thu nhat: '); readln(cgv1);
cgv2:=sqrt(sqr(ch)-sqr(cgv1));
write('Canh goc vuong con lai la: ',cgv2:2);
readln;
end.