Составить блок - схему: найти 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.