СРОЧНО НУЖНО РЕШИТЬ, Даю 50 балов

===== PascalABC.NET =====

begin

 var a := ReadReal('Угол в градусах:');

 var v0 := ReadReal('Начальная скорость, м/с:');

 var s := ReadReal('Расстояние до цели, м:');

 var eps := ReadReal('Максимальное отклонение от цели, м:');

 var g := 9.81;

 var t := 2 * v0 * Sin(DegToRad(a)) / g;

 var x := v0 * t * Cos(DegToRad(a));

 if Abs(x - s) <= eps then

   Println('Попадет')

 else

   Writeln('Не попадет: дальность ', x:0:2);

end.