Nhập ba số dương a, b, c từ bàn phím, kiểm tra và in ra màn hình kết quả kiểm tra ba số đó có thể là độ dài ba cạnh của tam giác vuông không?

uses crt;
var a,b,c,a1,b1,c1:real;
begin
clrscr;
write('a,b,c');readln(a,b,c);
a1:=sqr(a);
b1:=sqr(b);
c1:=sqr(c);
if (a1=b1+c1) or (b1=a1+b1) or (c1=a1+b1) then writeln(a:5:2,' ',b:5:2,' ',c:5:2,' la 3 canh cua tam giac vuong')
else

writeln(a:5:2,' ',b:5:2,' ',c:5:2,' khong la 3 canh cua tam giac vuong');
readln
end.

Program bai_giai;

Uses crt;
Var a,b,c:longint;
Begin

clrscr;
write('nhap do dai canh thu nhat :');readln(a);
write('nhap do dai canh thu hai :');readln(b);
write('nhap do dai canh thu ba :');readln(c);
if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln('Day la tam giac vuong')
else
writeln('Day la tam giac thuong');
readln;
End.