komp_ege_17625

## // № 17625 Основная волна 19.06.24 (Уровень: Базовый)
uses turtle,graphWPF;
// переменные
SetMathematicCoords(-100, 100,true);
// кружочки
Brush.Color := Colors.Red;
  for var i := -50 to 50 do
    for var j := -50 to 50 do
      circle(i, j, 0.08);
//
ToPoint(0,0);
Turn(-90); // обязательная команда!
Down; // обязательная команда!
//
{ ///////////// задание ////////////////////
Повтори 10 [Вперёд 22 Направо 90 Вперед 16 Направо 90]
Поднять хвост
Вперед 1 Направо 90 Вперёд 1 Налево 90
Опустить хвост
Повтори 10 [Вперёд 72 Направо 90 Вперёд 79 Направо 90]
} //////////////////////////////////////////
//
loop 10 do
  begin
    Forw(22);Turn(90);Forw(16);Turn(90);
  end;
Up;
Forw(1);Turn(90);Forw(1);Turn(-90);
Down;
loop 10 do
  begin
    Forw(72);Turn(90);Forw(79);Turn(90);
  end;
// Ответ: 72