Известна диагональ прямоугольника и угол между диагональю и большей стороной. вычислить площадь прямоугольника . нужно написать линейный алгоритм.

Var
  a, b, d, s, alpha: real;

begin
  Write('Введите длину диагонали прямоугольника: ');
  Readln(d);
  Write('Введите величину угла между большей стороной и диагональю :');
  Readln(alpha);
  alpha := Pi * alpha / 180;
  a := d * cos(alpha);
  b := d * sin(alpha);
  s := a * b;
  Writeln('Площадь прямоугольника равна ', s:0:3)
end.

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

Введите длину диагонали прямоугольника: 35
Введите величину угла между большей стороной и диагональю :29
Площадь прямоугольника равна 519.429