составь программу в АВС паскаль так, чтобы в результате получился рисунок

Во!uses graphABC;var x,y,z,n:integer;Begin randomize;n:=random(1000)+1;y:=random(n)+123;x:=random(y)+n;z:=x+23;SetWindowSize(n,z); setbrushcolor (clRed);Ellipse(z,y,n,x);floodfill (z,n, clgreen);line(z,x,z,n); line(n,y,n,z);line(x,x,z,n);end.