Мне нужен выполнить задание питання 1-4​

(1-2+3)*4*5=40,

(-1+2+3+4)*5=40

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

решаем относительно  a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.