var
h, p, s: real;
begin
write('введите диагонали ромба h и p');
readln(h, p);
if (h>0) and (p>0) then
s:=(h+p)/2;
writeln('площадь ромба равна:', s);
end;
else
writeln('неверное условие!');
end.
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.