Виручайе рисунок в паскале абс с for дом либо светофор или же ваш вариант,заранее

uses graphabc;

var i,d,v: integer;

begin

for i: =1 to 7 do

begin

setpenwidth(5);

setbrushcolor (clrandom);

rectangle(40+d,380-v,600-d,437-v);

d: =d+40;

v: =v+57;

end

end.

uses

  graphabc;

const

  s = 14; // кол-во щупалец

  n = 18;   // кол-во звеньев в каждом из них

  w = 2; //ширина щупалец

var

  i, j: integer;

  x, y: real;

  tx, ty: real;

  k, d: real;

  // углы поворота звеньев относительно друг-друга

  a: array [1..n] of real;

  // длина одного звена

  len: real;

begin

  pen.width : = w;

  setwindowsize(320, 320);

  setwindowtitle('щупальца');

  if window.width > window.height then

    len : = window.height / 1.8 / n

  else

    len : = window.width / 1.8 / n;

  k : = random(360) * pi / 180;

  d : = pi * 2 / s;

  var k1 : = 1;

  // главный цикл

  repeat

    if window.width > window.height then

      len : = window.height / 1.8 / n

    else

      len : = window.width / 1.8 / n;

    lockdrawing(); //блокируем рисование(для оптимизации)

    clearwindow(clblack); // стираем всё

    // расчёт коэфицента поворота

    if random(50) = 0 then

      k : = random(360) * pi / 180;

    // поворот всех щупалец

    a[1] : = a[1] + sin(k) / 15;

    // интерполяция углов между щупальцами

    for i : = 2 to n do  

      a[i] : = a[i] + (a[i - 1] - a[i]) * 0.1;

    for j : = 0 to s - 1 do

    begin

      x : = 0.5 * window.width;

      y : = 0.5 * window.height;

      for i : = 2 to n do  

      begin

        setpencolor(color.fromargb(255, trunc(255 - 255 * i / n), 255));

        // немного школьной тригонометрии : )            

        tx : = x + cos(j * d + a[i]) * len;

        ty : = y + sin(j * d + a[i]) * len;

        line(trunc(x), trunc(y), trunc(tx), trunc(ty));

        x   : = tx;

        y   : = ty;

      end;

    end;

    redraw(); //перерисуем изображение

    k1 += 1;

    setwindowtitle('щупальца( средн. fps ' + format('{0,5: f2}',k1/milliseconds*1000)+')');

    sleep(5);

  until false;

end.