С клавиатуры вводятся стороны треугольника. Является ли треугольник равносторонним,в программе Паскаль нужно сделать!

Program n2;var a,b,c: real;beginreadln(a,b,c);if (a=c) and (a=b) and (b=c) then write('является') else write('не является');end.