Найти площадь ромба если известна 1 из диагоналей и его сторона. ввод данных с пояснением...

Question

Найти площадь ромба если известна 1 из диагоналей и его сторона. ввод данных с пояснением + формат 4 знака всего и 2 знака после запятой ПАСКАЛЬ АВС.NET Срочно

Answer 1

Program inf;

var
diag, storona, diag2, otvet, S: real;
begin
write('Введите сторону ');
readln(storona);
write('Введите диагональ ');
readln(diag);
diag := diag / 2;
diag2 := sqrt(sqr(storona) - sqr(diag));
S := diag * diag2 * 2;
writeln(S: 4: 2);
end.