Ошибка в pascal (Встречен begin, а ожидался конец файла) посчитайте, что нужно дописать чтобы ошибка исчезла?uses GraphABC;procedure Zv (x,y: integer; cl:integer);var i,k: integer;begink:=0;for i: integer := 1 to 10 doPrint(i);Println;// Здесь переменная i не доступна for var i := 10 downto 1 do // описание с автоопределением типаPrint(i);end;beginsetpencolor(cl);setpenwidth(4);setbrushcolor(cl);circle(x+k div 2+k div 4,y+k div 2+k div 4,k div 2);circle(x+k div 2+k div 4,y-k div 2-k div 4,k div 2);circle(x-k div 2-k div 4,y+k div 2+k div 4,k div 2);circle(x-k div 2-k div 4,y-k div 2-k div 4,k div 2);setbrushcolor(clyellow);circle(x,y,k div 2);setbrushcolor(cl);circle(x-k,y,k div 2);circle(x+k,y,k div 2);circle(x,y-k,k div 2);circle(x,y+k,k div 2);k:=k+3;end. beginsetwindowsize(360,320);setpencolor(clblack);setbrushcolor(clblack);ellipse(100,270,250,300);setpencolor(clskyblue);setbrushcolor(clskyblue);rectangle(150,150,200,250);circle(175,250,50);setpencolor(clgreen);setbrushcolor(clgreen);circle(100,150,20);circle(150,100,20);circle(220,40,20);circle(260,100,20);circle(120,50,20);circle(210,170,20);Zv (100,100,clred);Zv (170,50,clmaroon);Zv (210,80,clred);Zv (230,130,clFuchsia);Zv (160,150,clPurple);end.