Определить, является ли треугольник со сторонами a,b,c прямоугольным. Если нет, то вычислить больший угол. Надо срочно и на паскале

Program abc; Var a,b,c,i,n:integer; begin writeln('Введите А : '); read(a); writeln('Введите B : ); read(b); writeln('Введите C : '); read(c); if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then writeln( 'Треугольник прямоугольный') else if (a>b) and (a>c) then writeln('Больший угол образован сторонами b и c') else  if (c>a) and (c>b) then writeln('Больший угол образован сторонами b и a')  else  if (b>a) and (b>c) then writeln('Больший угол образован сторонами a и c');  end.