Напишите программу которая с помощью цикла For-NEXT выводит на экран рисунок «Крылья»

Хорошо рисует PascalABC.
А я вот не вижу никакого "крыла". Что автор вопроса имел ввиду???

Uses GraphABC;
Const X0 = 320; Y0 = 240; X = 600; Y = 200;
dY = 10; R = 100; n = 10;

begin
DrawCircle (x0, y0, R);
for var i := 1 to n do
DrawCircle (x0, y0, 50+i*dy);
for var i := -n to 2*n do
Line (x0, y0, X, Y + i*dy);
end.



Или вот это???

Вот программа на BASIC, которая использует цикл For-NEXT для отображения шаблона «Крылья»:

10 ДЛЯ I = 1 ДО 10
20 ДЛЯ J = 1 К I
30 ПЕЧАТЬ "*";
40 СЛЕДУЮЩИЙ J
50 ПЕЧАТЬ
60 СЛЕДУЮЩИЙ Я
70 ДЛЯ I = 10 К 1 ШАГ -1
80 ДЛЯ J = 1 К I
90 ПЕЧАТЬ "*";
100 СЛЕДУЮЩИЙ J
110 ПЕЧАТЬ
120 СЛЕДУЮЩИЙ Я

Эта программа использует два вложенных цикла For-NEXT для отображения шаблона «Крылья». Внешний цикл работает от 1 до 10, а внутренний цикл работает от 1 до текущего значения внешнего цикла. Внутренний цикл печатает символ «*» для каждой итерации, а внешний цикл переходит на следующую строку после завершения каждого внутреннего цикла.

После отображения первого «крыла» программа использует другой цикл For-NEXT для отображения второго «крыла» в обратном порядке. Этот цикл выполняется от 10 до 1, а внутренний цикл работает так же, как и первый.

Вы можете запустить эту программу в интерпретаторе или компиляторе BASIC, чтобы увидеть узор «Крылья» на экране.