program p; uses crt; var a,m,z,v,x,y,x0,y0,t1,t,g,t2,f,t3,q,s:real; begin f:=0; t:=0; g:=9.8; write ('vvedite ygol:='); readln (a); write ('vvedite t1:='); readln (t1); write ('vvedite x0:='); readln (x0); write ('vvedite y0:='); readln (y0); write ('vvedite v:='); readln (v); z:=cos ((pi/180)*a); m:=sin ((pi/180)*a); t2:=2*v*m/g; writeln ('t':19,'x':19,'y':19); while (t+t1<=t2) and (t>=0) do begin t:=t+t1; x:=x0+v*z*t; y:=y0+v*m*t-(g*t*t/2); writeln (t,x,y); end; writeln (t2,x0+v*z*t2,f); write ('vvedite t'); readln (t3); q:=y0+v*m*t3-(g*t3*t3/2); s:=x0+v*z*t3; if t3>t2 then writeln ('oshibka') else begin writeln ('t':19,'x':19,'y':19); writeln (t3,s,q); end; readln; end.