1. Треугольник задан своими сторонами. Выяснить является ли он прямоугольным. (ЧЕРЕЗ PASKAL)

Var a,b,c:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);if (a<b+c)and(b<c+a)and(c<a+b) then   Begin   a:=a*a;   b:=b*b;   c:=c*c;   if (a+b=c)or(b+c=a)or(c+a=b) then WriteLn('Δabc - прямоугольный')   else WriteLn('Δabc не является прямоугольным');   Endelse WriteLn('Δabc не существует')End.