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

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