Задание по информатике

@ivixi233 · Регистрация: 16.12.2021

Author24 — интернет-сервис помощи студентам

У меня не работает метка я не понимаю почему

Pascal

uses crt,graphABC;
  label 1,2,3,4;
  var x,y:integer;
  procedure Xreg (x,y:integer);          
  begin
      Window.Clear;
      setpencolor(clblue);
      circle(x+100,y,30);
      circle(x+80,y,30);
      circle(x+60,y,30);
      SetBrushColor(clRed);
      floodFill(x+100,y,clorange);
  end;
begin
1:
   while y<200 do     
   begin
      Xreg (x,y);
      x:=x-5;
      y:=y+10;
      delay(20);
   end;
   while x<200 do    
   begin
     Xreg (x,y);
     x:=x+10;
     y:=y+10;
     delay(20);
   end;
   while y<640 do
   begin
     Xreg (x,y);
     x:=x+10;
     y:=y-15;
     delay(20);
   end;   
   while x<640 do
   begin
      Xreg (x,y);
      x:=x-5;
      y:=y+10;
      delay(20); 
   end; 
goto 1;
end.

@JuriiMW · 17.12.2021, 05:08

Во-первых, вы программу запускаете не в PascalABC
А во-вторых, всё работает!

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	17.12.2021, 05:08	2
	Во-первых, вы программу запускаете не в PascalABC А во-вторых, всё работает! 0