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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.