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

Question

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

Answer 1

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.