Написать программу которая классифицирует треугольники равнобедренный, равносторонний,прямоугольный,если даны 3 стороны треугольника.

var a,b,c:real; begin writeln('Введите 1 сторону треугольника'); readln(a); writeln('Введите 2 сторону треугольника'); readln(b); writeln('Введите 3 сторону треугольника'); readln(c); if (a=b)and(b=c) then writeln('Равносторонний треугольник') else if (a=b) or(b=c)or(a=c) then writeln('Равнобедренный треугольник') else if (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a)) then writeln('Прямоугольный треугольник') else writeln('Обычный треугольник'); end.