Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Даны 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)" забыл ;