bài 1 :
var s,a,b,c,v:real;
begin
write (' nhap do dai lan luot cua 2 canh goc vuong');readln (a,b);
s:=(a*b)/2;
c:=sqrt(a*a+b*b);
v:= a+b+c;
write('dien tich hinh tam giac vuong la',s);
write('chu vi hinh tam giac vuong la',v);
readln 
end.
chúc bạn học tốt