99 БАЛЛОВ!!!! Помогите пожалуйста написать программу в PascalABC ТОЛЬКО С ПОМОЩЬЮ ЦИКЛА!!!

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
Window.SetSize(550,160);
var (x,y):=(50,75);
Loop 10 do begin
    DrawCircle(x,y,10);
    DrawCircle(x,y,35);
    DrawCircle(x,y,40);
    x+=50
    end
end.