В Паскале нарисовать в экране 300х300 пикселей рамку из кружков, радиусом 15 пикселей.

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

Вот пример кода на Pascal (Free Pascal):

program drawFrame;
uses Graph;
const
radius = 15;
screenWidth = 300;
screenHeight = 300;
var
gd,gm,i,j: integer;
begin
gd := detect;
InitGraph(gd, gm, '');
SetColor(Yellow);
for i := 0 to screenWidth div (2*radius) do
begin
Delay(50);
Circle(radius+i*2*radius, radius, radius);
Circle(radius+i*2*radius, screenHeight-radius, radius);
end;
for j := 1 to (screenHeight-2*radius) div (2*radius) do
begin
Delay(50);
Circle(radius, radius+j*2*radius, radius);
Circle(screenWidth-radius, radius+j*2*radius, radius);
end;
readln;
closegraph;
end.

Для запуска кода вам понадобится компилятор Pascal и библиотека Graph. Результатом работы программы будет экран размером 300х300 пикселей с рамкой из кружков радиусом 15 пикселей.