Решить в паскале. max {x+y+z; x*y+z; x^2+y^2-z} min {x+y+(2/2); x*y*z} +1

Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=x+y+1;
if x*y*z<min then min:=x+y+1;
write(min+1);
end.