Даны диагонали двух ромбов, Выяснить: равны ли их площади! помогите плиз решить. в паскале

Question

Даны диагонали двух ромбов, Выяснить: равны ли их площади! помогите плиз решить. в паскале

Answer 1

Var
 d1,d2,d3,d4:integer;
//диагонали ромбов(d1 и d2 -первый ромб; d3 и d4 - второй ромб)
begin
 readln(d1,d2,d3,d4);
 //S ромба = 0.5*d1*d2;
 if 0.5*d1*d2 = 0.5*d3*d4 then
  writeln('Площади ромбов равны')
 else
  writeln('Площади ромбов не равны');
end.