Здравствуйте. Помогите пожалуйста нарисовать в Паскале абс. NET эти ри

уоуи улут
Здравствуйте. Помогите пожалуйста нарисовать в Паскале абс. NET эти рисунки. Надо раздельные программы.
Нарисуйте, пожалуйста все, кроме муравья. Дам ЛО после проверки. Спасибо.

Ответы:

Икар Кабачков
uses graphabc; var x: real; begin  x:=0.0;  ellipse(100,100,300,300);  moveto(200,100);  for var a:=0 to 3 do   begin     lineto(200+round(100*cos(x)),200+round(100*sin(x)));     x:=x+pi/2;   end;  writeln('Всё'); end.