Пушка стреляет с закрытой позиции. целью является мишень расположенная на расстоянии s от пушки и высотой h. начальная скорость полета снаряда известна и постоянна.необходимо определить угол наклона пушки, для поражения цепи. выполнить первых два этапа:
вывод описательной модели , формулировка ​

program Fizika;

uses crt;

var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;

begin

clrscr;

writeln('Введите число №1:');

readln (a);

writeln('Введите число №2:');

readln (b);

writeln ('1) Швидкість');

writeln ('2) Шлях');

writeln ('3) Час ');

writeln ('4) Густина ');

writeln ('5) Маса ');

writeln ('6) Обєм ');

writeln ('7) Висота ');

writeln ('8) Площа ');

writeln ('9) Сила тяжіння');

writeln ('10) Маса ');

writeln ('11) Прискорення вільного падіння ');

writeln('Введите число от 1 до 11:');

readln (NUM);

c:=a div b;

d:=c*b;

e:=d div c;

i:=a div b;

f:=i*b;

g:=f div i;

h:=a div b;

j:=a div h;

k:=a*b;

r:=k div b;

t:=k div r;

case NUM of

1:writeln ('Швидкість дорівнює:', c, ' м/с');

2:writeln ('Шлях дорівнює:', d, 'м');

3:writeln ('Час дорівнює:', e, 'c');

4:writeln ('Густина дорівнює:', i, 'кг/м3');

5:writeln ('Маса дорівнює:', f, 'кг');

6:writeln ('Обєм дорівнює:', g,'м3');

7:writeln ('Висота дорівнює:', h,'м');

8:writeln ('Площа дорівнює:', j, 'м2');

9:writeln ('Сила тяжіння дорівнює:', k ,'Н');

10:writeln ('Маса дорівнює:', r, 'кг');

11:writeln ('Прискорення вільного падіння дорівнює:', t,'Н/кг');

end;

end.

//Pascal
//Для натуральных чисел
var a, s, p:integer;

begin
  write('Введите число = ');
  readln(a);
  s := 0;
  p := 1;
  while (a<>0) do
  begin
    p := p * (a mod 10);
    s := s + (a mod 10);
    a := a div 10;
  end;
 writeln( 'Сумма цифр числа = ', s);
 writeln( 'Произведение цифр числа = ', p);
end.

//Если число отрицательное
var
  s, p, a, b, c: integer;
  f: boolean;
begin
  write('Введите число = ');
  readln(a);
  if a < 0 then
    f := true;
  a := abs(a);
  b := a mod 10;
  a := a div 10;
  c := a mod 10;
  a := a div 10;
  if f = true then
  begin
    p := (-a) * b * c;
    s := -a + b + c;
  end
  else
  begin
    s := a + b + c;
    p := a * b * c;
  end;
  writeln('Сумма цифр числа = ', s);
  writeln('Произведение цифр числа = ', p);
end.