[PassCall]

Еще наподобие градиента.
В этот раз он напоминает внешний вид цветовой палитры в фотошопе.

program grad2;
VAR
i,j,a,b,c:integer;
temp_real:real;
begin
	for i:=1 to 100 do
	for j:=1 to 100 do
	begin
	temp_real:=2.55*i;
	a:=trunc(temp_real);
	temp_real:=255-2.55*i;
	b:=trunc(temp_real);
	temp_real:=2.55*j;
	c:=trunc(temp_real);
	setcolor (a,b,c);
	plot(j,i);
	end;
	repaint;
	delay (2012);
end.