Вы не знаете что такое множество Мандельброта? Это ужасно. Это надо исправить немедленно. Внизу код, написанный на Паскале. Просто скопируйте этот код, зайдите на страницу онлайн-Паскаль, вставьте код и нажмите кнопку "Выполнить". Программа нарисует картинку, которую вы видите слева. Онлайн-Паскаль расположен здесь.

А для любителей математики сообщаем, что мно́жество Мандельбро́та — это множество таких точек c на комплексной плоскости, для которых итерационная последовательность \(z_{n+1} = {z_n}^2 + c\) при \(z_0 = 0\) является ограниченной. То есть, это множество таких c, для которых существует такое действительное R, что неравенство \(\mid z_{n}\mid < R\) выполняется при всех натуральных n.

Множество Мандельброта является одним из самых известных фракталов, в том числе за пределами математики, благодаря своим цветным визуализациям. Его фрагменты не строго подобны исходному множеству, но при многократном увеличении определённые части всё больше похожи друг на друга.

uses graph;

const
 n=255;
 max=10;

// z=z^2+c
begin
 Window.SetSize(400,300);
 Window.Title := 'Множество Мандельброта';
 for var ix:=0 to 399 do
 for var iy:=0 to 299 do
 begin
 var x:=0.0;
 var y:=0.0;
 var cx:=0.002*(ix-720);
 var cy:=0.002*(iy-150);
 
 var i: integer;
 for i:=1 to n do
 begin
 var x1:=x*x-y*y+cx;
 var y1:=2*x*y+cy;
 if (x1 > max) or (y1 > max) then break;
 x:=x1;
 y:=y1;
 end;
 if i>=n then PutPixel(ix,iy,Color.Red)
 else PutPixel(ix,iy,RGB(255,255-i,255-i));
 end;
end.