Program P; Uses CRT; Var x0,y0,g,a,Dt,V,t:integer; X,Y:real; Begin WriteLn('Enter x0 , y0, g, V, Dt, a'); Read(x0,y0,g,v,Dt,a); t:=0; While y>=0 do begin T:=Dt+t; X:=x0+v*cos(a)*t; Y:=y0+v*sin(a)*t+g*t*t/2; Writeln('X=',x,'__Y=',y,'__T=',T); end; readln; end.