СДЕЛАЙТЕ ПЖЛ В pascal!!!!!!!!!!!!!!

Вывести на экран значения функции y=b min{a,b max(a^2,x)} из промежутка [a,b]

Примерный код:program Project1;var a,b, x:integer;function max(a,b:integer):integer;begin  if a>b then    result:=a  else    result:=bend;function min(a,b:integer):integer;begin  if a<b then    result:=a  else    result:=bend;begin  readln(a, b);  for x:=a to b do    writeln(b * min(a,b * max(a*a, x)));  readln;end.Ещё варианты:writeln(b + min(a,b + max(a*a, x)));writeln(b - min(a,b - max(a*a, x)));writeln(b div min(a,b div max(a*a, x)));