Бросок мяча в кольцо

program Project5;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
 
Var
  ee:real;
  r:real;
  m:real;
  V:real;
  a:real;
  x,y,x0,y0:real;
  y1,x1:real;
  Vx,Vy:real;
  t,dt:real;
  g:real;
  Fy,Fx:real;
  f,f1,f2:TextFile;
  tochki:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
  AssignFile(f,'1.txt');
 
  Write('Vvedite nachalnie koordinati x0,y0:');
  Read(x0);
  Readln(y0);
  Write('Vvedite massy myacha v kg:');
  Readln(m);
  Write('Vvedite sily tyazhesti deystvyuchyu na myach v m/s^2:');
  Readln(g);
  Write('Vvedite nachalnyu scorost mechya v m/s:');
  Readln(V);
  Write('vvedite ygol broska megdy vectorom nachalnoy skorosti u gorizontom');
  Readln(a);
  Write('Vvedite koordinati kolca x1,y1:');
  Readln(x1,y1);
  Write('Vvedite wag po vremeni v sekyndah:');
  Read(dt);
  ee:=cos(a);
  Vx:=V*(cos(a));
  Vy:=V*(sin(a));;
  Writeln(ee);
  Writeln(Vx);
 Rewrite(f);
 tochki:=0;
while ((Vy>=0) or ((Vy<=0) and (y0>=y1 ))) do
begin
tochki:=tochki+1;
Fy:=-m*g;
Fx:=0;
Vx:=Vx+(Fx*dt)/(m);
Vy:=Vy+(Fy*dt)/(m);
if (tochki mod 100 = 0) then Writeln(Vy);
x:=x0+dt*Vx;
y:=y0+dt*Vy;
t:=t+dt;
 
end;
closeFile(f);
readln;
 
end.