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

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 151) -113.88 2) 6952.87593 3) 323.9649 4) 21.5296321845033 5) -156.9634