Определить,является ли треугольник со сторонами a,b,c прямоугольным или...

Question

Определить,является ли треугольник со сторонами a,b,c прямоугольным или нет?(паскаль)
Помогите пожалуйста:(

Answer 1

Var
  a, b, c :integer;
 
begin

  readln(a,b,c);
  if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c) or (sqr(c) = sqr(a) + sqr(b) then
    writeln('Треугольник прямоугольный')
  else
    writeln('Треугольник не прямоугольный');

end.