Сделайте в вывести на экран значения функции 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:=b
end;

function min(a,b:integer):integer;
begin
  if a<b then
    result:=a
  else
    result:=b
end;

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)));