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

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

Если у Вас есть какие-то требования, нужно о них писать в задании. Поскольку Вы ничего не написали, решение может быть записано на любом языке, даже на самом экзотическом. Таковы тут правила. В школах обычно изучают Паскаль, я на нем и написал

Прицепил Вам блок-схему. Но еще раз так напишете неконкретно задание - как пойму, так и сделаю)

спасибо