Ошибка в pascal (Встречен begin, а ожидался конец файла , что нужно дописать чтобы ошибка исчезла? uses GraphABC; procedure Zv (x, y: integer; cl:integer); var i, k: integer; begin k:=0; for i: integer := 1 to 10 do Print(i); Println; // Здесь переменная i не доступна! for var i := 10 downto 1 do // описание с автоопределением типа Print(i); end; begin setpencolor(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. begin setwindowsize(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.