с решением задания в Кумире

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  N, сумма, сч, скор, макс: ЦЕЛ;

УКАЗ
  сумма := 0;
  макс := 0;
  Вывод.Цепь("Введите число автомобилей: ");
  N := Приём.Число();
  ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
    Вывод.Цепь("^Введите скорости:^");
    ОТ сч := 1 ДО N ВЫП
      скор := Приём.Число();
      ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
      УВЕЛИЧИТЬ(сумма, скор);
      ЕСЛИ скор > макс ТО макс := скор КОН;
      Вывод.Цепь(" ")
    КОН
  КОН;
  Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
  ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН

КОН Задание.

Использовать Чертежникалг Слон   нач   опустить перо   сместиться на вектор(2, 0)   сместиться на вектор(0, 2)   сместиться на вектор(1, 0)   сместиться на вектор(0, -2)    сместиться на вектор(2, 0)   сместиться на вектор(0, 2)   сместиться на вектор(1, 1)   сместиться на вектор(0, 2)   сместиться на вектор(1, -2)   сместиться на вектор(-1, 2)   сместиться на вектор(-1, 1)   сместиться на вектор(-3, 0)   сместиться на вектор(-1, 1)   сместиться на вектор(-1, 0)   сместиться на вектор(-1, -2)   сместиться на вектор(-1, 0)   сместиться на вектор(0, 3)   сместиться на вектор(-1, 0)   сместиться на вектор(0, -3)   сместиться на вектор(1, -1)   сместиться на вектор(2, -1)   сместиться на вектор(0,-3)   поднять перо   сместиться на вектор(1, 3)   опустить перо   сместиться на вектор(1, 1)   сместиться на вектор(0, 2)   поднять перо   сместиться на вектор(-2, -1)   опустить перо   сместиться на вектор(-0.1, 0.1)   сместиться на вектор(-0.1, -0.1)   сместиться на вектор(0.1, -0.1)   сместиться на вектор(0.1, 0.1)   поднять перо   сместиться на вектор(0, -5)кон