Ошибка: "Ожидался идентификатор" - PascalABC.NET
Формулировка задачи:
Ребят помогите срочно нужно сделать 2 дня до защиты курсовой не могу сделать помогите кто знает
program zipa;
uses Graph,crt;
var i,n,gd,x,y,c,b,gm,a:integer;
PROCEDURE q;
PROCEDURE w(b:integer);
begin
line(230,263,230,296);
line(235,263,235,285);
line(235,285,287,283);
ellipse(288,293,290,90,15,10);
ellipse(283,303,340,90,10,10);
ellipse(265,298,175,325,35,14);
setfillstyle(1,b);
floodfill(285,290,6);
line(225,263,225,298);
line(220,263,220,285);
line(220,285,165,275); {nogi}
ellipse(165,285,65,240,15,10);
ellipse(170,295,90,200,13,10);
ellipse(192,298,180,10,33,11);
setfillstyle(1,b);
floodfill(165,285,6);
PROCEDURE m(x,y:integer);
begin
setcolor(8);
ellipse(x+20,y+20,0,150,10,5);
ellipse(x+40,y+20,0,150,10,5);
end;
PROCEDURE k(x,y:integer);
begin
setcolor(12);
circle(x+5,y-15,3); {zvetok}
circle(x+5,y-20,3);
circle(x+1,y-17,3);
circle(x+2,y-12,3);
circle(x+10,y-13,3);
circle(x+9,y-18,3);
circle(x+7,y-17,3);
circle(x+7,y-22,3);
circle(x-1,y-19,3);
circle(x+5,y-10,3);
circle(x+12,y-11,3);
circle(x+10,y-20,3);
setcolor(2);
ellipse(x+100,y+50,0,90,5,10);
ellipse(x+110,y+50,90,180,5,10);
line(x+105,y+40,x+105,y+35);
ellipse(x+300,y+50,0,90,5,10);
ellipse(x+310,y+50,90,180,5,10);
line(x+105,y+40,x+105,y+35); {trava}
ellipse(x,y,0,90,5,10);
ellipse(x+10,y,90,180,5,10);
line(x+5,y-10,x+5,y-15);
end;
PROCEDURE l(x,y:integer);
begin
setcolor(8);
line(x,y+10,x+80,y+10);
ellipse(x,y,30,270,5,10);
ellipse(x+10,y-10,30,270,5,10);
ellipse(x+20,y-20,30,270,5,10);
ellipse(x+30,y-30,30,270,5,10); {kust}
ellipse(x+40,y-35,0,180,6,15);
ellipse(x+80,y,270,120,6,10);
ellipse(x+70,y-10,270,120,6,10);
ellipse(x+60,y-20,270,120,6,10);
ellipse(x+50,y-30,270,120,6,10);
setfillstyle(6,2);
floodfill(x+30,y-30,8);
end;
Begin
setcolor(3);
line(0,200,640,200);
setfillstyle(1,7);
floodfill(205,300,3);
setfillstyle(1,11);
floodfill(205,100,3);
{gora}
setcolor(3);
line(300,200,350,100);
line(350,100,420,200);
line(340,120,350,110);
line(350,110,370,130);
setfillstyle(2,6);
floodfill(350,150,3);
setfillstyle(6,15);
floodfill(350,105,3);
line(400,170,500,70);
line(500,70,600,200);
line(460,110,480,120);
line(480,120,500,105);
line(500,105,520,120);
line(520,120,530,110);
setfillstyle(2,6);
floodfill(480,130,3);
setfillstyle(6,15);
floodfill(480,100,3);
setcolor(3);
ellipse(630,200,30,155,50,50);
setfillstyle(1,14);
floodfill(630,190,3);
setcolor(12);
line(600,160,590,140);
line(610,155,605,135);
line(620,150,615,130);
line(630,150,628,130);
line(590,168,575,150);
l(50,250);
l(50,400);
l(400,330);
l(500,350);
l(10,350);
l(100,400);
l(350,370);
m(300,50);
m(100,45);
m(40,60);
m(140,20);
m(200,15);
m(420,35);
m(50,20);
m(500,35);
m(550,50);
for i:=1 to 10 do begin
k(i*45,480);
k(i*40,450);
k(i*60,250);
end;
k(150,350);
k(300,350);
k(380,320);
k(400,300);
k(500,350);
k(500,350);
k(450,400);
k(480,400);
k(450,450);
k(500,350);
k(250,400);
k(300,450);
setcolor(0);
ellipse(620,450,50,220,150,100);
ellipse(600,350,0,360,20,10);
ellipse(570,355,0,360,10,5);
ellipse(600,340,0,360,10,5);
setfillstyle(1,0);
floodfill(570,355,0);
floodfill(570,357,0);
floodfill(600,350,0);
floodfill(600,352,0);
setfillstyle(1,15);
floodfill(600,342,0);
floodfill(600,339,0);
setfillstyle(1,1);
floodfill(620,440,0);
setcolor(6);
ellipse(225,100,0,180,65,40);
ellipse(160,120,90,270,5,20);
ellipse(290,120,270,90,5,20);
line(160,140,187,180); {golova}
line(290,140,270,180);
ellipse(255,190,225,45,20,13);
ellipse(200,190,135,320,19,13);
ellipse(205,170,0,180,11,54); {glaz 1}
ellipse(205,145,0,180,10,14);
ellipse(203,167,0,180,4,13);
ellipse(205,172,0,180,14,5);
setfillstyle(1,10);
floodfill(205,145,6);
setfillstyle(1,7);
floodfill(205,160,6);
setfillstyle(1,15);
floodfill(205,130,6);
ellipse(255,170,0,180,11,54);
ellipse(255,145,0,180,10,14); {glaz 2}
ellipse(258,167,0,180,4,13);
ellipse(255,172,0,180,14,5);
setfillstyle(1,10);
floodfill(255,145,6);
setfillstyle(1,7);
floodfill(257,160,6);
setfillstyle(1,15);
floodfill(255,130,6);
ellipse(230,187,0,360,10,5);
ellipse(215,187,305,45,4,6); {rot}
ellipse(245,187,120,255,4,6);
line(220,187,240,187);
setfillstyle(1,4);
floodfill(232,186,6);
floodfill(232,188,6);
{tulovish}
ellipse(245,210,90,150,10,13);
ellipse(207,206,0,45,10,13);
line(218,205,205,235);
line(235,205,250,235);
ellipse(245,237,320,50,6,8);
ellipse(210,237,100,260,6,8);
line(207,245,220,215);
line(248,245,235,215);
ellipse(227,245,180,360,20,20);
ellipse(248,250,240,90,5,5);
ellipse(207,250,90,300,5,5);
setfillstyle(1,14);
floodfill(235,120,6);
setfillstyle(1,6);
floodfill(247,250,6);
floodfill(203,250,6);
line(230,70,225,45);
line(235,60,230,35);{irokes}
line(240,60,240,40);
{browi}
ellipse(255,115,10,80,20,20);
ellipse(205,115,100,170,20,20);
{resniz}
ellipse(251,108,270,30,5,10);
ellipse(256,106,270,30,5,10);
ellipse(260,110,270,30,5,10);
ellipse(209,108,150,270,5,10);
ellipse(204,106,150,270,5,10);
ellipse(200,110,150,270,5,10);
w(6);
End;
PROCEDURE w(b:integer);
begin
line(230,263,230,296);
line(235,263,235,285);
line(235,285,287,283);
ellipse(288,293,290,90,15,10);
ellipse(283,303,340,90,10,10);
ellipse(265,298,175,325,35,14);
setfillstyle(1,b);
floodfill(285,290,6);
line(225,263,225,298);
line(220,263,220,285);
line(220,285,165,275);
ellipse(165,285,65,240,15,10);
ellipse(170,295,90,200,13,10);
ellipse(192,298,180,10,33,11);
setfillstyle(1,b);
floodfill(165,285,6);
end;
PROCEDURE m1(x,y:integer);
begin
setcolor(4);
line(x,y,x+5,y);
line(x+5,y,x+8,y-5); {zvezda}
line(x+8,y-5,x+13,y);
line(x+13,y,x+18,y);
line(x+18,y,x+14,y+4);
line(x+14,y+4,x+20,y+8);
line(x+20,y+8,x+8,y+6);
line(x+8,y+6,x+2,y+8);
line(x+2,y+8,x+4,y+4);
line(x+4,y+4,x,y);
setfillstyle(1,14);
floodfill(x+10,y+3,4);
end;
PROCEDURE t;
begin
setcolor(4);
ellipse(0,0,180,70,50,50);
setfillstyle(1,14); {luna}
floodfill(0,0,4);
setcolor(1);
ellipse(620,450,50,220,150,100);
setfillstyle(1,9); {ozero}
floodfill(620,450,1);
end;
PROCEDURE k1(x,y:integer);
begin
setcolor(12);
circle(x+5,y-15,3); {zvetok}
circle(x+5,y-20,3);
circle(x+1,y-17,3);
circle(x+2,y-12,3);
circle(x+10,y-13,3);
circle(x+9,y-18,3);
circle(x+7,y-17,3);
circle(x+7,y-22,3);
circle(x-1,y-19,3);
circle(x+5,y-10,3);
circle(x+12,y-11,3);
circle(x+10,y-20,3);
setcolor(2);
ellipse(x,y,0,90,5,10);
ellipse(x+10,y,90,180,5,10); {trava}
line(x+5,y-10,x+5,y-15);
ellipse(x,y,0,90,5,10);
ellipse(x+10,y,90,180,5,10);
line(x+5,y-10,x+5,y-15);
end;
PROCEDURE l1(x,y:integer);
begin
setcolor(8);
line(x,y+10,x+80,y+10);
ellipse(x,y,30,270,5,10);
ellipse(x+10,y-10,30,270,5,10);
ellipse(x+20,y-20,30,270,5,10);
ellipse(x+30,y-30,30,270,5,10);
ellipse(x+40,y-35,0,180,6,15); {kust}
ellipse(x+80,y,270,120,6,10);
ellipse(x+70,y-10,270,120,6,10);
ellipse(x+60,y-20,270,120,6,10);
ellipse(x+50,y-30,270,120,6,10);
setfillstyle(6,2);
floodfill(x+30,y-30,8);
end;
BEGIN
initgraph(gd,gm, 'd:/distr/tp7');
t;
l1(50,250);
l1(50,400);
l1(420,330);
l1(550,340);
l1(10,350);
l1(100,400);
l1(350,370);
l1(400,250);
l1(470,270);
m1(300,50); m1(100,45); m1(40,60); m1(140,20); m1(140,100); m1(200,150);
m1(420,100); m1(200,15); m1(420,35); m1(50,20); m1(500,35); m1(550,50);
m1(500,80); m1(500,150); m1(550,150); m1(600,20); m1(610,35); m1(580,80);
m1(400,80); m1(400,150); m1(450,100); m1(350,70); m1(370,35); m1(300,100);
m1(240,100); m1(200,100); m1(20,150); m1(200,150);m1(150,150); m1(50,100);
for i:=1 to 10 do begin
k1(i*45,480);
k1(i*40,450);
k1(i*70,300);
k1(i*40,350);
end;
k1(150,350);
k1(300,350);
k1(380,320);
k1(400,300);
k1(500,350);
k1(500,350);
k1(450,400);
k1(480,400);
k1(450,450);
k1(500,350);
k1(250,400);
k1(300,450);
setcolor(6);
ellipse(225,100,0,180,65,40);
ellipse(160,120,90,270,5,20);
ellipse(290,120,270,90,5,20);
line(160,140,187,180); {golova}
line(290,140,270,180);
ellipse(255,190,225,45,20,13);
ellipse(200,190,135,320,19,13);
ellipse(205,170,0,180,11,54); {glaz 1}
ellipse(205,145,0,180,10,14);
ellipse(203,167,0,180,4,13);
ellipse(205,172,0,180,14,5);
setfillstyle(1,10);
floodfill(205,145,6);
setfillstyle(1,7);
floodfill(205,160,6);
setfillstyle(1,15);
floodfill(205,130,6);
ellipse(255,170,0,180,11,54);
ellipse(255,145,0,180,10,14); {glaz 2}
ellipse(258,167,0,180,4,13);
ellipse(255,172,0,180,14,5);
setfillstyle(1,10);
floodfill(255,145,6);
setfillstyle(1,7);
floodfill(257,160,6);
setfillstyle(1,15);
floodfill(255,130,6);
ellipse(230,187,0,360,10,5);
ellipse(215,187,305,45,4,6); {rot}
ellipse(245,187,120,255,4,6);
line(220,187,240,187);
setfillstyle(1,6);
floodfill(232,186,6);
floodfill(232,188,6);
{tulovish}
ellipse(245,210,90,150,10,13);
ellipse(207,206,0,45,10,13);
line(218,205,205,235);
line(235,205,250,235);
ellipse(245,237,320,50,6,8);
ellipse(210,237,100,260,6,8);
line(207,245,220,215);
line(248,245,235,215);
ellipse(227,245,180,360,20,20);
setfillstyle(1,14);
floodfill(235,120,6);
ellipse(248,250,240,90,5,5);
ellipse(207,250,90,300,5,5);
setfillstyle(1,6);
floodfill(247,250,6);
floodfill(203,250,6);
line(230,70,225,45);
line(235,60,230,35);{irokes}
line(240,60,240,40);
{browi}
ellipse(255,115,10,80,20,20);
ellipse(205,115,100,170,20,20);
{resniz}
ellipse(251,108,270,30,5,10);
ellipse(256,106,270,30,5,10);
ellipse(260,110,270,30,5,10);
ellipse(209,108,150,270,5,10);
ellipse(204,106,150,270,5,10);
ellipse(200,110,150,270,5,10);
repeat
w(14);
until keypressed;
q;
readln;
closegraph;
END.Решение задачи: «Ошибка: "Ожидался идентификатор"»
textual
Листинг программы
PROCEDURE w(b:integer);
begin
line(230,263,230,296);
line(235,263,235,285);
line(235,285,287,283);
ellipse(288,293,290,90,15,10);
ellipse(283,303,340,90,10,10);
ellipse(265,298,175,325,35,14);
setfillstyle(1,b);
floodfill(285,290,6);
line(225,263,225,298);
line(220,263,220,285);
line(220,285,165,275); {nogi}
ellipse(165,285,65,240,15,10);
ellipse(170,295,90,200,13,10);
ellipse(192,298,180,10,33,11);
setfillstyle(1,b);
floodfill(165,285,6);
end;