Написать программу в паскале. - Составить программу классификации треугольников по сторонам ( равнобедренный, равносторонний, произвольный ).

var a,b,c:integer; begin; writeln('Сторона a'); readln(a); writeln('Сторона b'); readln(b); writeln('Сторона c'); readln(c); if (a=b) and (b=c) then writeln('Равносторонний')       else       begin;             if (a=b) or (b=c) or (c=a) then             writeln('Равнобедренный')                    else                    writeln('Произвольный');       end; end.