komp_ege_17669

## // № 17669 Пересдача 04.07.24 (Уровень: Базовый)
uses turtle,graphWPF;
// переменные
SetMathematicCoords(-50, 50,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; // обязательная команда!
{
Повтори 4 [Вперёд 19 Направо 90 Вперед 30 Направо 90]
Поднять хвост
Вперед 2 Направо 90 Вперёд 8 Налево 90
Опустить хвост
Повтори 4 [Вперёд 93 Направо 90 Вперёд 97 Направо 90]
}
loop 4 do
  begin
    Forw(19);Turn(90);Forw(30);Turn(90);
  end;
Up;
Forw(2);Turn(90);Forw(8);Turn(-90);
Down;
loop 4 do
  begin
    Forw(93);Turn(90);Forw(97);Turn(90);
  end;
// Ответ: 374