Вычислить площадь ромба, если известны длины его диагоналей. Записать в виде программы.

Var

a, b: real;

begin

Write ('Введите через пробел длины диагоналей ромба: ') ;

Readln (a, b) ;

Writeln ('Площадь ромба равна ', a * b / 2:0:4)

end.

Тестовое решение:

Введите через пробел длины диагоналей ромба: 13.6 17.4

Площадь ромба равна 118.3200