Question

помогите написать программу со ВСПОМОГАТЕЛЬНЫМ АЛГОРИТМОМ
первую - НА ПАСКАЛЕ

Answer 1

===== PascalABC.NET =====

function Max4(a, b, c, d: real) := Max(Max(a, b), Max(c, d));

begin

 var x := ReadReal('x =');

 var y := Sqr(x - 3);

 var z := 1 + 2 ** x;

 var k := 6 - x * x * x;

 var g := Sqr(x) + 1 / Sqr(x);

 Println(Max4(y, z, k, g))

end.