На паскале. проверить является ли четырёхугольник со сторонами a, b, c, d ромбом.

Var a, b, c, d :real;
begin
     read (a, b, c, d);
     if (a=b) and (b=c) and (c=d) then write ('Ромб') else write ('Не ромб');
end.