Решите дам 25 баллов

1 задание:

var

 x, a: integer;

 y: real;

begin

 readln(x);

 a := -4 + 2 * x;

 y := x / a - sqr(a);

 writeln(y);

end.

2 задание:

var

 a: real;

begin

 writeln('Чему равен коэффициент свободного падения?');

 writeln('Введите число и нажмите lt;Entergt;');

 readln(a);

 if a = 9.81 then writeln('Правильно! Молодец!')

 else writeln('Не верно. Вы ошиблись!');

end.

3 задание:

var

 n, i: integer;

 ans: real;

begin

 readln(n);

 ans := 0;

 for i := 1 to n do ans += sqrt(i) / (2 + i);

 writeln(ans);

end.