var

h, p, s: real;

begin

write('введите диагонали ромба h и p');

readln(h, p);

if (h>0) and (p>0) then

begin

s:=(h+p)/2;

writeln('площадь ромба равна:', s);

end;

else

writeln('неверное условие!');

end.