3 числа, могут ли быть сторонами прямоугольного треугольника или нет? помогите

Var a,b,c:integer;
begin
writeln('Введите 3 числа, последняя должна быть введена гипотенуза');
read(a,b,c);
if (a=0) and (b=0) and (c=0) then writeln('Треугольника не существует') else
if (alt;=b+c) or (blt;=a+c) or (clt;=a+b) and (sqr(c) = sqr(a) + sqr(b)) then writeln('Да могут быть гранями треугольника') else writeln('Нет не могут');
end.