Написать программу для вычисления площади ромба (s=1/2 d1d2 ,где d1 и d2 - диагонали ромба)

Var d1,d2:integer;
s:real;
begin
read(d1,d2);
s:=1/2*d1*d2;
write('Площадь равна ',s);
end.