Определить является ли треугольник прямоугольным - Turbo Pascal

Формулировка задачи:

Даны стороны треугольника. Определить является ли этот треугольник прямоугольным

Решение задачи: «Определить является ли треугольник прямоугольным»

Листинг программы

uses  Crt;
var   a,b,c:integer;
begin
      ClrScr;
      Write('A = '); Readln(a);
      Write('B = '); Readln(b);
      Write('C = '); Readln(c);
      Writeln;
       if (a>c) and (a>b)
        then
         if sqrt(sqr(c)+sqr(b))=a
          then Writeln('Treugolnik prjamougolniy')
          else Writeln('Treugolnik ne prjamougolniy')
        else
         if (b>a) and (b>c)
          then
           if sqrt(sqr(a)+sqr(c))=b
            then Writeln('Treugolnik prjamougolniy')
            else Writeln('Treugolnik ne prjamougolniy')
        else
         if (c>a) and (c>b)
          then
           if sqrt(sqr(a)+sqr(b))=c
            then Writeln('Treugolnik prjamougolniy')
            else Writeln('Treugolnik ne prjamougolniy');
       ReadKey;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека Crt, которая содержит функции для работы с консолью.
Переменные a, b и c инициализируются целочисленными значениями.
С помощью функции ClrScr очищается экран перед вводом данных.
Пользователю предлагается ввести значения для переменных a, b и c.
Введенные значения сохраняются в соответствующих переменных.
Выводится пустая строка с помощью функции Writeln.
Затем выполняется проверка на прямоугольность треугольника.
Для этого проверяется условие a > c и a > b. Если оба условия выполняются, то переменной a присваивается значение корня из суммы квадратов c и b.
Если полученное значение равно a, то треугольник считается прямоугольным, и выводится соответствующее сообщение.
Если полученное значение не равно a, то выполняется следующая часть проверки.
Аналогично проверяется условие b > a и b > c. Если оба условия выполняются, то переменной b присваивается значение корня из суммы квадратов a и c.
Если полученное значение равно b, то треугольник считается прямоугольным, и выводится соответствующее сообщение.
Если полученное значение не равно b, то выполняется последняя часть проверки.
Наконец, проверяется условие c > a и c > b. Если оба условия выполняются, то переменной c присваивается значение корня из суммы квадратов a и b.
Если полученное значение равно c, то треугольник считается прямоугольным, и выводится соответствующее сообщение.
Если полученное значение не равно c, то выполняется заключительная часть проверки.
Если ни одно из условий не выполняется, то треугольник не является прямоугольным, и выводится соответствующее сообщение.
В конце кода с помощью функции ReadKey ожидается нажатие клавиши для выхода из программы.