Написать программу в паскале, которая проверяет проверяет по заданным трем…

Program E4; var a, b, с: real; begin writeln ('введите длины трех сторон треугольника '); readln (a, b, с); write ('треугольник со сторонами ', а, Ь, с); if (а +b > с) and (b+ с > a) and (а + с > Ь) thenbegin writeln ('существует'); if (a=b) and (a=c) then writeln ('равносторонний') else writeln ('неравносторонний'); else writeln ('не существует'); end; readln end.