Информатика

Марлен

20 августа, 20:09

Даны 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.