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

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.