На числовой оси выбираются случайные числа пока не выбрали 0. сколько четных чисел выбрали. составить блок-схему алгоритм

                                              167 (умножение на 2)                     334 (умножение на 2)                   668 (стереть последнюю цифру)   66 (умножение на 2)                   132 (умножение на 2)                   264 (умножение на 2)                   528 (стереть последнюю цифру)   52 (стереть последнюю цифру)   5 например, так. есть и другие варианты.

работает на 1000 элементов,нужно узнать диапазон n,элементы я так понял рандомные,если вводятся с клавиатуры то просто убираем randomize и пишем вместо присваивания (mas[i]: =random(19)-10; )пишем read(который в коментах)

label l;

var

  mas: array[1..1000] of longint;

  n,i: longint;

begin

  readln(n);

  randomize;

  for i: =1 to n do

  begin  

    mas[i]: =random(19)-10;

  //read(mas[i]);

    write(mas[i],' ');

  end;

  for i: =n-4 to n do

  begin

    if mas[i] > 0 then

    begin  

      mas[i]: =mas[i]-2*mas[i];

      goto l;

    end;

    if mas[i] < 0 then

      mas[i]: =abs(mas[i]);

    l:

  end;

  writeln;

  for i: =1 to n do

    write(mas[i],' ');

end.