См документы
====================
Тихий - Евразия, Австралия, Северная Америка, Южная Америка, Антарктида.
Индийский - Африка, Австралия, Евразия, Антарктида.
(Тихий океан и Индийский океан вместе омывают - Евразия, Австралия, Антарктида)
Домашние приборы,размер,и цвет
Во!
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.