z_tr4.PAS

{* Прямоугольный треугольник *}

Unit Z_TR4;
Interface
Implementation
Begin
 writeln('Определение является ли треугольник с заданным сторонами прямоугольным');
End.

Program z_tr;

Uses z_tr4.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a : real;
  b : real;
  c : real;
Begin
  clrscr; {Ввод сторон треугольника}
  writeln('Введите стороны треугольника a, b, c');
  readln(a, b, c); {/Ввод сторон треугольника}
  {Проверка теоремы Пифагора}
  If (a * a = b * b + c * c)Or(b * b = a * a + c * c)Or(c * c = b * b + a * a) Then {/Проверка теоремы Пифагора}
    writeln('Треугольник прямоугольный')
  Else writeln('Треугольник не является прямоугольным');
    readln; {* Ждем подтверждения пользователя *}
End.