Даны 3 стороны треугольника авс-напечатать какой имеет вид треугольник. проверьте где у меня ошибки: var a,b,c: integer; begin write('введите a='); readln(a) write('введите b='); readln(b) write('введите c='); readln(c) if(a=b)and(b=c)then writeln('равносторонний') else if (a=b)or(b=c)or(a=c)then writeln('равнобедренный') else writeln('разносторонний') end.
После всех "readln(a-c)" забыл ;