program k; uses crt; var a,m,z,v,x,y,x0,y0,t1,t,g,t2,f,t4,h,p: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 (t4); h:=y0+v*m*t4-(g*t4*t4/2); p:=x0+v*z*t4; if t4>t2 then writeln ('oshibka') else begin writeln ('t':20,'x':20,'y':20); writeln (t4,p,h); end; readln; end.