Zdalipak jsou to strany trojúhelníka...?

program trojuhel;
var
a,b,c,d,e,y :real;

begin
writeln('Tri strany.]'); writeln('a ='); readln(a); writeln('b ='); readln(b); writeln('c ='); readln(c);

y:=b-c;
d:=abs(y);
e:=b+c;

if d<a then if a<e then
                      if (a*a=b*b+c*c) OR (b*b=a*a+c*c) OR (c*c=b*b+a*a) then writeln('Pravoúhlý.')
                        else writeln('Je to trojúhelník.')
else writeln('Není to trojúhelník.');

readln();

end.