Решить систему Уравнений

var n: word;
function cep ( cur: integer; k: integer) : double;
begin
if cur>=k then cep:=k else cep:=cur + 1 / cep ( cur + 1, k);
end;
BEGIN
read (n) ; writeln (1/cep(1, n));
END.

Составить блок-схему алгоритма решения задачи и программу на языке паскаль одним способом:

Σ сверху сигмы 40,снизу сигмы x=1 (x^2+(5/(x^2+8)))

Решить
систему уравнений в матричном виде в Еxcel




4*x1- x2+3*x3 +

8.3x1 + 3.7x2 - 2.4x3=2.3
3.4x1 - 2.3x2 + 5.2x3=3.5
1.8x1 + 4.3x2 + 1.2x3=-1.2
помогите пожалуйста друзья очень срочно нужен!

Используя формулы нахождения
дискриминанта и неизвестных,

решите квадратное
уравнение 12х^2+5х-2=0