program tam_giacVuong;
uses crt;
var a,b,c:real;
Begin
    clrscr;
    write('a = ');readln(a);
    write('b = ');readln(b);
    write('c = ');readln(c);
    if (a*a=c*c+b*b) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then
    write('la tam giac vuong')
    else write('khong la tam giac vuong');
    readln
End.

program bai_giai;

uses crt;

var a,b,c:longint;

begin

clrscr;

write('nhap ba canh a,b,c:');readln(a,b,c);

if(a*a=b*b+c*c)and(b*b=c*c+a*a)and(c*c=a*a+b*b)then write('ba canh a,b,c la ba canh cua tam giac vuong') else write('ba canh a,b,c khong la ba canh cua tam giac vuong')

readln;

end.