Automatic program to optimize fence design:

	program fence;
	var
		xamax, yamax, areamax, leng, area, x, y: real;
	begin
	leng := 24.0;
	x := 0.0;
	xamax := 0.0;
	yamax := 0.0;
	areamax := 0.0;
	y := leng -2*x;
	writeln('Fence Optimization');
	writeln('     x     y   area');
	while y >= 0.0 do
		begin
		area := x * y;
		writeln(x:6:2, y:6:2, area:7:2);
		if area > areamax then
			begin
			areamax := area;
			xamax := x;
			yamax := y;
			end;
		x := x + 1.0;
        	y := leng -2.0*x;
		end;
	writeln('Largest area was', areamax:5:1, '; X was', xamax:5:1,
		', Y was', yamax:5:1);
	readln;
	end.

Sample output

>Fence Optimization
>     x     y   area
>  0.00 24.00   0.00
>  1.00 22.00  22.00
>  2.00 20.00  40.00
>  3.00 18.00  54.00
>  4.00 16.00  64.00
>  5.00 14.00  70.00
>  6.00 12.00  72.00
>  7.00 10.00  70.00
>  8.00  8.00  64.00
>  9.00  6.00  54.00
> 10.00  4.00  40.00
> 11.00  2.00  22.00
> 12.00  0.00   0.00
>Largest area was 72.0; X was  6.0, Y was 12.0