Круги на воде.pas

uses graphABC,crt;
const r: array [1..10] of byte=(0,0,0,0,8,8,0,0,0,0);
      g: array [1..10] of byte=(160,145,137,127,121,121,127,137,145,160);
      b: array [1..10] of byte=(227,203,189,135,167,167,135,189,203,227);
 
procedure Krug (rr: integer);
begin
setbrushcolor(rgb(r[1],g[1],b[1]));
for i: integer :=1 to 10 do
    begin
    setpencolor(rgb(r[i],g[i],b[i]));
    if rr div 100<2 then setpenwidth(10)
       else setpenwidth(10*(rr div 100));
    circle(250,250,rr-(i*8));
    end;
end;
 
begin
lockdrawing;
hidecursor;
clearwindow(rgb(r[1],g[1],b[1]));
repeat
setwindowsize(500,500);
for j: integer :=1 to 350 do
    begin
    Krug (j*3);
    Krug (j*2);
    sleep(10);
    Krug (j);
    sleep(15);
    redraw;
    end;
until keypressed;
end.