Напишите программу на паскале, которая будет сообщать можно ли попасть в цель находящая на заданном расстоянии l на высоте h над уровнем горизонта при заданном угле d и начальной скорости v0.в ответе должен высчитаться угол и написать программа "попал" ты или нет

Чтобы наш снаряд (пуля, мяч или что-то еще) попало в цель, нужно чтобы высота подъема снаряда совпала с высотой, на которой расположена цель, и чтобы дальность полета совпала с заданным расстоянием. Иначе снаряд может улететь выше или ниже цели или не долетать.

Воспользуемся формулами по равнозамедленному движению.

program zadacha;

const

g=9.8;

var

h,L,a,V,S,h1:real;

begin

writeln('vvedite visotu i dalnost celi');

readln(h,L);

writeln('vvedite ugol, skorost snariada');

readln(a,V);

a:=a*pi/180;

h1:=int(( sqr(V)* sqr(sin(a))) / (2*g));

S:=int((sqr(V)*sin(2*a))/g);

if (S=L) and (h1=h) then writeln('popal') else writeln('ne popal');

end.

Буду по порядку добавлять.

1)

uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.

2)

uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.

3)

uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.

Program Princess;
uses crt;
var
  M:Integer;
begin
  writeln('');
  writeln('*        Вас приветствует ППП         *');
  writeln('*    Программа Проверки Принцесс      *');
  writeln('*                                     *');
  writeln('*      Сейчас узнаем...               *');
  writeln('');
  writeln('1. Постелите постель для девушки');
  writeln('2. Подложите горошину');
  writeln('3. Дождитесь утра...');
  writeln('4. Разбудите девушку');
  writeln('5. Спросите: "Как Вам спалось?" ');
  writeln('6. Введите в систему ответ девушки:');
  writeln('   0 - "Плохо, совсем не сомкнула глаз..." ');
  writeln('   1 - "Отлично выспалась" ');
  readln(M);
  writeln('');
  writeln('*                Итак...              *');
  if m=0 then
  writeln('* Эта девушка - настоящая принцесса!  *')
  else
  writeln('*  Увы! Эта девушка - не принцесса!   *');
  writeln('');
end.