Нарисовать в Pascal ABC окружности, от светлого к темному. Если можно, то скиньте...

Question

Нарисовать в Pascal ABC окружности, от светлого к темному. Если можно, то скиньте программу.

Answer 1

//PascalABC.NET 3.2 сборка 1318

uses
  GraphABC;

Var
  i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
  for j:=1 to 8 do
  begin
    circle(x,y,window.height div 16);
    floodfill(x,y,rgb(c,c,c));
    c:=c-8;
    x:=x+(window.height div 8); 
 end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.

Comments

После программы Circle пишет "встречено 16, а ожидалось ')'

---

И неизвестное имя 'window'

---

Видите версию компилятора в комментарии сверху? На ней всё работает, потому и я его пишу.

---

Хотя можно убрать точку между window.height.