Пожалуйста, срочно помогите составить блок - схему: найти 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.