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

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.