Для того, чтобы пустить по небу облака, создадим соответствующую процедуру. • Добавьте процедуру Oblako:
Как всегда, разберёмся:
в процедуру Oblako кроме координат будет передаваться параметр с, задающий цвет облака;
в этой процедуре реализован ещё один способ рисования в относительных координатах — все координаты отсчитываются от значенийх и у;
команда Circle выводит окружность (первые два параметра задают координаты центра, третий параметр — величину радиуса);
командой Ellipse рисуется эллипс (два первых параметра задают координаты центра эллипса, пятый и шестой параметры— горизонтальный и вертикальный радиусы, про третий и четвёртый узнаем чуть позже).
• Добавьте в программу вызов процедуры:
