Даны x, y, z. Найти:
max^2(x+y/2+z, (xyz)/2, z+1) + 5

{1. Традиционный паскаль, каким он былболее четверти века назад. Именно егоописывают школьные учебники.}function Max(a,b:real):real;begin  if a>b then Max:=a else Max:=bend;var  x,y,z,r:real;begin  Write('Введите z,y,z: ');  Read(x,y,z);  r:=sqr(Max(Max(x+y/2+z,x*y*z/2),z+1))+5;  Writeln(r)end.// 2. PascalABC.NET 3.2, сборка 1374 от 10.01.2017// Актуальная, современная версия паскаля, которой// все же начали учить некоторые школы и на которой// можно решать олимпиадные задачи// (пока еще не на любых сайтах)begin  var x,y,z:real;  Write('Введите z,y,z: ');  Read(x,y,z);  var r:=sqr(Max(Max(x+y/2+z,x*y*z/2),z+1))+5;  Writeln(r)end.