А) if x+y+z > x*y*z then max := x+y+z else max := x*y*z;
б) if x < y then min := x else min := y;
Там в б) еще стоит запятая после у, может быть, не дописали?
Допустим, должно быть так:
min(x, y, x*y)
Тогда программа для б) будет такая:
min=x;
if (yif (x*y