не получаеться составить блок схему к задачи

[†Monah†]

Задача. Для преобразования периодического возвратно-поступательного движения во вращательное движение в двигателях внутреннего сгорания применяют шатунно-кривошипный механизм, состоящий из кривошипа ОА=r, вращающегося вокруг неподвижной точки О в плоскости рисунка, шатуна АВ=l, шарнирно соединенного с кривошипом, и поршня В, двигающегося по горизонтальным направляющим цилиндра, совпадающим с прямой ОВ.
На основе разработанного алгоритма решения задачи по кинематике составим Паскаль – программу.
-----------------------------------------------------------------------
Program Kinematika;
Var t,f0,k,b1,b2,x1,x2,a,b,l,d,f1,f2,a1 ,a2,w1,w:real;
Begin
Write('vvedite welichini a b d l w t = ');
Readln(a,b,d,l,w,t);
x1:=(sqr(d+b)-a*a+l*l)/(2*l*(d+b));
f1:=(180/pi)*arctan(sqrt(1-sqr(x1))/x1);
x2:=(sqr(d+b)-a*a-l*l)/(2*l*a);
a1:=(180/pi)*arctan(sqrt(1-sqr(x2))/x2);
x1:=-(l*l+sqr(d-b)-a*a)/(2*l*(d-b));
f2:=(180/pi)*arctan(sqrt(1-sqr(x1))/x1);
x2:=(l*l-sqr(d-b)+a*a)/(2*l*a);
a2:=(180/pi)*arctan(sqrt(1-sqr(x2))/x2);
f0:=w*t;
k:=sqrt(l*l+b*b-2*l*b*cos(f0));
x1:=(k*k+d*d-a*a)/(2*k*d);
b2:=arctan(sqrt(1-sqr(x1))/x1);
x2:=(1/k)*sin(f0);
b1:=arctan(x2/sqrt(1-sqr(x2)));
w1:=(b*k*sin(b1+b2)*w)/(a*a*sin(b2));
Writeln('a1= ', a1:6:3,' a2= ',a2:6:3);
Writeln('f1= ', f1:6:3,' f2= ',f2:6:3);
Writeln('w1= ',w1:6:3);
Readln;
End.
Помогите с блок схемой !

[†Monah†]

Ну вот прям не у кого нет соображения !!!!как сделать блок схему?!

[†Monah†]

ну спасибо за блок схему хотя бы написали что не можете!!!