Пожалуйста, срочно помогите составить блок - схему: найти S и P равнобедренной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах)

Спасибо большое за проделанную тобой работу. Ты можешь помочь ещё в составлении алгоритма?

var  a, b, h, k, m, s, p, alpha:real;begin  read(a, b, alpha);  k:=(a-b)/2;  h:=tan(alpha)*k;  m:=Sqrt(sqr(k)+sqr(h));  p:=a+b+2*m;  s:=(a+b)*h/2;  writeln('Высота равна: ', h);  writeln('Боковые стороны равны: ', m);  writeln('Периметр равен: ', p);  writeln('Площадь равна: ', s)end.