Question

Помогите срочно. Нужно нарисовать в Паскале. На языке Паскаля. Вариант 12. Задание 1

Answer 1

Ответ:

uses graphABC;

begin

SetWindowSize(400,400);

SetPenWidth(3);

RoundRect(100,100,300,300,50,50);

SetPenColor(clblue);

SetBrushColor(clblue);

RoundRect(107,107,293,293,40,40);

SetPenColor(clwhite);

SetBrushColor(clwhite);

Polygon((185,295), (185,200), (145,200), (200,115), (255,200), (215,200), (215,295),(185,295))

end.

Объяснение:

скрин