C2:viết chương trình cho biết tam giác có phải là tam giác vuông k với 3 cạnh của tam giác được nhập từ bàn phím
_________
program tamgiacvuong; 
uses crt; 
var a,b,c : real; 
begin 
writeln('Nhap do dai 3 canh tam giac'); readln(a,b,c); 
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) and (a>0) and (b>0) and (c>0) 
then begin 
if (a*a=b*b+c*c) or (b*b=a*a+c*c)or(c*c=a*a+b*b) 
then writeln('Day la tam giac vuong'); 
else writeln('Day khong phai la tam giac vuong'); 
end 
else writeln('Day khong phai la mot tam giac'); 
readln 
end.