Помогите написать программу в паскале чтоб получились эти рисунки

Question

Помогите написать программу в паскале чтоб получились эти рисунки

---

Answer 1

Рисунок 2:
program ggg;uses GraphABC;var xc,yc,y,x,r: integer;beginwriteln('введи центр окружности');readln(xc,yc);writeln('введи радиус окоружности');readln(r);x:= xc;y:= yc;Brush.Color:= clRandom;circle(x,y,r);circle(x-r,y-r div 4,r div 4);circle(x+r,y-r div 4,r div 4);circle(x,y-r,r div 2);
end.