Составить блок-схему по программе

[Анастасия2505]

program lab1;
 function F(v:real):real;
    begin
    F:=6*ln(v*v+5);
    end;
    function k(x:real):real;
      begin
      k:=1/10*x*x*sin(x)*sin(x);
       end;
       var x, g, v, m, t, dt: real;
       begin
      
       m:=19;
       x:=0;
       dt:=1/100;
       t:=0;
       g:=10;
       v:=10;
       repeat
         v:=v+(F(v)/m-k(x)*g)*dt;
         x:=x+v*dt;
        writeln (t,' ',x,' ',v);
         t:=t+dt;
       until v<=0;
       end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.