Дано А(альфа)=14, V0=750м/с. Найти: t=2*V0*sin(AR)/g; h=SQR(V0)*SQR(sin(AR))/2*g; L=SQR(V0)*SQR(sin(AR))/g; R1=SQR(V0)/g*cos(AR); R2=SQR(V0)*cos(AR)/g очень нужна помощь, заранее спасибо!

Program window;
Const g=9.81;
Var t,h,l,r1,r2:real;
v0, A: integer;
Begin
Readln (A, v0);
AR:=pi*A/180;
t:=2*V0*sin(AR)/g;
h:=SQR(V0)*SQR(sin(AR))/2*g;
L:=SQR(V0)*SQR(sin(AR))/g;
R1:=SQR(V0)/g*cos(AR);
R2:=SQR(V0)*cos(AR)/g;
Writeln (r1,r2);
End.