Составить программу классификации треугольников по его сторонам (вместо углов входными данными являются стороны треугольника a, b, c.)

program zz1;

var

a, b, c: real; //задаем переменные не целого типа

begin

write ('введите первую сторону треугольника ');

read (a); / / вводим с клавиатуры первую сторону треугольника

write ('введите вторую сторону треугольника ');

read (b); / / вводим с клавиатуры вторую сторону треугольника

write ('введите третью сторону треугольника ');

read (c); / / вводим с клавиатуры третью сторону треугольника

if (a = c) or (a = b) or (c = a) then write (' треугольник равнобедренный '); / / проверяем стороны и выводим ответ

if (a = c) and (a = b) and (c = a) then write (' треугольник равносторонний ');

if (a c) and (a b) and (c a) then write (' треугольник разносторонний ');

end.