составьте программу для рисования улитки

Листинг программы:

unit modul_1;

interface

uses graphABC;

procedure ulitka(x,y:integer);

implementation

procedure ulitka(x,y:integer);

begin

setpencolor(clGray);

setbrushcolor(clGray);

ellipse(x-55,y-40,x+55,y+40);

setpencolor(clWhite);

ellipse(x-53,y-38,x+53,y+38);

ellipse(x-30,y-5,x+20,y+35);

setbrushcolor(clBlack);

ellipse(x-29,y-4,x+19,y+34);

setpencolor(clBlack);

line(x-50,y+42,x+50,y+42);

line(x-55,y+48,x+60,y+48);

line(x-50,y+42,x-55,y+48);

line(x+50,y+42,x+87,y-10);

line(x+60,y+48,x+92,y);

setbrushstyle(bsClear);

setpenwidth(2);

circle(x+105,y-10,20);

floodfill(x+45,y+46,clGray);

floodfill(x+105,y-10,clGray);

setpenwidth(1);

line(x-50,y+45,x+55,y+45);

line(x+55,y+45,x+87,y);

line(x+52,y+45,x+87,y-4);

setpencolor(clWhite);

setbrushstyle(bsClear);

circle(x+105,y-10,19);

setpenwidth(2);

setpencolor(clBlack);

line(x+95,y-30,x+85,y-50);

line(x+115,y-30,x+125,y-50);

setpencolor(clWhite);

setbrushcolor(clWhite);

circle(x+98,y-15,4);

circle(x+112,y-15,4);

setpencolor(clBlack);

setbrushcolor(clBlack);

circle(x+98,y-15,3);

circle(x+112,y-15,3);

setpencolor(clLtGray);

line(x+95,y-2,x+115,y-2);

arc(x+105,y-15,18,230,310);

floodfill(x+105,y,clBlack);

end;

end.