Ответ:

uses GraphABC;

begin

SetWindowWidth(660);

SetWindowHeight(400);

SetFontSize(15);

TextOut(50,350,'Венера Меркурий Земля Марс Нептун Уран Сатурн Юпитер');

TextOut(50,375,'     0              0            1         2        14        27       62          67');

SetBrushColor(clblack);

SetPenWidth(2);

Rectangle (245,340,265,335);

Rectangle (300,340,320,330);

Rectangle (365,340,385,270);

Rectangle (430,340,450,205);

Rectangle (490,340,510,30);

Rectangle (570,340,590,5);

end.

Объяснение:

картинка