Определение вида треугольника (прямоугольный) по трем сторонам P.S. нужно составить алгоритм

Program outr; var a,b,c:real; begin readln(a,b,c); writeln('a=',a,' b=',b,' c=',c); if (a+c>b) and (a+b>c) and (c+b>a) then begin if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('треугольник прямоугольный'); end else writeln('треугольник построить невозможно'); end.