Question

Написать программу которая будет выводить на экран 50 кругов, которые будут делать как бы воронку, начиная с самого маленького и дальше (по размеру в смысле 1,2,3 и до 50) в pascalABC.net
как должно получится нарисовал в paint и прикрепил.

Answer 1

uses GraphABC;

begin
  Window.SetSize(600,600);
  var (x,y):=(50,WindowHeight-50);
  for var i:=1 to 50 do
   DrawCircle(x+5*i,y-5*i,5*i);
end.