uses crt;
var a,b,c:word;
begin
        clrscr;
        writeln('Nhap lan luot do dai 3 canh:');
        readln(a,b,c);
        if (sqrt(a*a+b*b)=c) or (sqrt(a*a+c*c)=b) or (sqrt(b*b+c*c)=a) then writeln('Day la tam giac vuong')
        else writeln('Day khong phai la tam giac vuong');
        readln;
end.