Https://1drv.ms/p/s!AtuMHKY8XgZ9inRAcb_ky67EOwmO?e=mVLMNH
вступите в повер поинт

Программа:

def f(x):

print("Вес на Луне:")

for i in range(1,16):

 y=x+i*0.250

 print('n = %d  вес =  %f кг' % (i, y*0.165))

print('Вес на Земле через 15 лет = %.3f кг' % y)

v = int(input("Начальный вес: "))

f(v)

Пример:

Начальный вес: 25

Вес на Луне:

n = 1  вес =  4.166250 кг

n = 2  вес =  4.207500 кг

n = 3  вес =  4.248750 кг

n = 4  вес =  4.290000 кг

n = 5  вес =  4.331250 кг

n = 6  вес =  4.372500 кг

n = 7  вес =  4.413750 кг

n = 8  вес =  4.455000 кг

n = 9  вес =  4.496250 кг

n = 10  вес =  4.537500 кг

n = 11  вес =  4.578750 кг

n = 12  вес =  4.620000 кг

n = 13  вес =  4.661250 кг

n = 14  вес =  4.702500 кг

n = 15  вес =  4.743750 кг

Вес на Земле через 15 лет = 28.750 кг

program ExampleN;

uses ...;  // здесь укажите где в вашей версии Паскаля

var

 x, y, z, r, s: Real;

begin

 Write ('Введете x, y: ');

 ReadLn (x, y);

 z := Sqr (Cos (x));

 if z = 0.0 then

   r := 0.0

 else if z > 0.0 then

   r := Exp (Ln (z) / 3)

 else

   r := - Exp (Ln (-z) / 3);

 s := 8 * r - y;

  WriteLn (s);

 ReadLn;

end.

Объяснение:

в паскале нет стандартной функции извлечения корня, поэтому приходится использовать такой алгоритм:

 if z = 0.0 then

   r := 0.0

 else if z > 0.0 then

   r := Exp (Ln (z) / 3)

 else

   r := - Exp (Ln (-z) / 3);