Помогите с паскаль

Question

Помогите с паскаль

Умняша Знаток (348), на голосовании 6 месяцев назад

Напишите пожалуйста программу паскаль для нахождения периметра и площади ромба по 2 диагоналям. Формула для площади (d1d2)/2

Answer 1

 program RombCalculation;

var
  d1, d2, perimeter, area: real;

begin
  writeln('d1: ');
  readln(d1);
  writeln('d2: ');
  readln(d2);

  perimeter := 4 * sqrt((d1 / 2) * (d1 / 2) + (d2 / 2) * (d2 / 2));
  area := (d1 * d2) / 2;

  writeln('Периметр: ', perimeter);
  writeln('Площадь: ', area);
end.