Var iz integer FOUTZARISE Solider! begin SetWindowSize(000, 200)/ M1-1001 While xc-700 do begin SetPenWidth (2) SetBrushColor(clBrown): FillRect (x, 50,+50,100): SetPenColor (clBrown): Line (x+25,25,-20,75)/ Line (x-25,25,x+70,75) FloodFill (x+25, 30, clYellow): 1x+1502 end: end. uses GraphABC: var x, y:integer: procedure is(x,y:integer): begin SetPenWidth(2): SetPenColor(clGreen): SetBrushColor (ciGreen): circle (x, y, 30): SetBrushColor(clBrown): FillRect(x-10,y+30,x+10,y00) end; begin SetWindowSize(1000, 400): 109-18 10071X While (x<-900) and (y<-400) do begin nor (x,y): X1X+100: if x>900 then begin x:-100: y:-200 100, end: end; end.

Ваш код на Pascal, использующий библиотеку GraphABC, имеет несколько ошибок и неточностей, которые могут вызвать проблемы при компиляции и выполнении. Давайте анализируем часть кода шаг за шагом и внесем необходимые исправления.

1. Определение переменных: В начале кода вы используете var iz integer. Правильный синтаксис должен быть просто var x, y: integer; как вы делали позже.

2. Корректный открывающий и закрывающий знак begin и end: Каждое begin должно завершаться соответствующим end, и они должны быть правильно сгруппированы.

3. Использование циклов: В конструкции цикла While вы должны убедиться, что условие написано правильно. Например, выражение While xc-700 do должно быть заменено на While x < 700 do (где xc видимо, это ошибка, так как x уже объявлена).

4. Обработка координат и рисование: Убедитесь, что функции рисования, такие как FillRect, получают правильные аргументы. Вызов FillRect(x-10,y+30,x+10,y00) имеет ошибку в y00, которая, вероятно, должна быть y + 30.

5. Ошибки в логике: Условия цикла While (x<-900) and (y<-400) do также требуют проверки. Возможно, вводимые значения x и y должны стартовать в другом диапазоне. Также в if x > 900 then есть ошибки в присваивании, это должно выглядеть так: x := -100; y := -200;.

Вот исправленный код:

uses GraphABC;

var 
  x, y: integer;

procedure is(x, y: integer);
begin
  SetPenWidth(2);
  SetPenColor(clGreen);
  SetBrushColor(clGreen);
  Circle(x, y, 30);
  SetBrushColor(clBrown);
  FillRect(x - 10, y + 30, x + 10, y + 60);
end;

begin
  SetWindowSize(1000, 400);
  x := -900; 
  y := -400;

  while (x < 700) and (y < 400) do
  begin
    is(x, y);
    x := x + 100;
    if x > 900 then begin 
      x := -100; 
      y := -200;
    end;
  end;
end.

Теперь этот код должен компилироваться и работать как ожидается. Обратите внимание на порядок выполнения команд и правильные синтаксические конструкции. Если у вас есть дополнительные вопросы или проблемы, не стесняйтесь задавать!