Ошибка в 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.

105

431

Посмотреть ответы 1

Ответы на вопрос:

goida82

Информатика

4,5(71 оценок)

Лёгкие софийских парит подходит дома Тачки Садовой подушечки

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.