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

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.