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.
Объяснение:
картинка
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.
Объяснение:
картинка