Помогите пожалуйста информатика срочно, даю 50 баллов составить алгоритм ** паскале

Question

Помогите пожалуйста информатика срочно, даю 50 баллов составить алгоритм на паскале

---

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a, b, c, d: real;

 Read(a,b,c,d);

 Println('1)', a + b + c + d);

 Println('2)', a * b * c * d);

 Println('3)', a * a - d * d);

 Println('4)', Sqrt(a * b * c));

 Println('5)', d + b - b * c)

end.

Пример

23.43 -152.18 -0.13 15

1) -113.88

2) 6952.87593

3) 323.9649

4) 21.5296321845033

5) -156.9634