Заданы длины 3 сторон треугольника a, b, c. Определить, является ли треугольник прямоугольным, и вывести соответствующие сообщения. Составьте блок схему плз

Program asd; Var   a,b,c:integer; Begin   Writeln('Введите стороны треугольника: ');   Write('a=');   Readln(a);   Write('b=');   Readln(b);   Write('c=');   Readln(c);   if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else    if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else     if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else      Writeln('Не прямоугольный'); End. Блок-схема прикреплена ниже. Тестовые значения: Введите стороны треугольника:  a=3 b=4 c=5 Прямоугольный