Нарисовать любые 2 рисунка в паскале авс

Предыдущий
вопрос Следующий
вопрос

Пример кода на PascalABC.NET для рисования простого квадрата:

program DrawSquare;
uses GraphABC;
begin
Window.Title := 'Square';
SetWindowSize(400, 400);
ClearWindow;
SetPenColor(clBlack);
Line(100, 100, 200, 100);
Line(200, 100, 200, 200);
Line(200, 200, 100, 200);
Line(100, 200, 100, 100);
Readln;
end.

Пример кода на PascalABC.NET для рисования простого круга:

program DrawCircle;
uses GraphABC;
begin
Window.Title := 'Circle';
SetWindowSize(400, 400);
ClearWindow;
SetPenColor(clBlack);
Circle(200, 200, 50);
Readln;
end.

Выполните эти программы в среде разработки PascalABC.NET, чтобы увидеть рисунки на экране.