Tham khảo
Program Bai1;
Uses crt;
Var a,b,c:integer;
Begin
CLRSCR;
Write('a='); Readln(a);
Write('b='); Readln(b);
Write('c='); Readln(c);
If (a*a=b*b+c*c) then Write('a,b,c la cac canh cua 1 tam giac vuong')
else('a,b,c khong phai la cac canh cua 1 tam giac vuong');
Readln
END.