буду благодарна! Составить программу рисования паровоза( Pascal ABC)

//PascalABC.NET

uses GraphABC;

var  c: integer;

begin

 window.IsFixedSize := true;//запрет изменения размера экрана

 window.Clear(cllightblue);//очистка экрана синим цветом

 pen.Color := clred;//меняем цвет пера на красный

 for var i := 0 to 19 do//цикл для отрисовки линий

 begin

   c := (window.Height div 19) * i;//сдвиг линнии по y

   line(0, 0 + c, window.Width, window.Height - c);//рисуем линию

 end;

end.

Объяснение:

uses graphabc;

begin

circle(50,50,50);

circle(50,50,20);

circle(150,50,50);

circle(150,50,20);

circle(250,50,50);

circle(250,50,20);

circle(350,50,50);

circle(350,50,20);

circle(450,50,50);

circle(450,50,20);

circle(550,50,50);

circle(550,50,20);

end.

с2н6+cl2=c2h5сl+hcl

с2н6-этан

с2н5cl- хлорэтан или хлористый этил

сейчас сундуков-n1

прибавляется-n2

18+(k-n1): n2

ответ: 18+(к-n1): n2 лет будет невесте.

по у кощея 27360 сундуков, каждый год прибавляется по 33 сундука, василиса пообещала, что выйдет замуж за кощея когда у него будет 30000 сундуковс золотом.

решение: сейчас сундуков 27360

прибавляется по 33 в год, значит

18+(30000-27360): 33=18+2640: 33=18+80=98 лет

невесте будет 98 лет.