Написать программу в c# (или в паскале можно, неважно) "головоломка "из изображенных пяти сброшенных флажков установить все""создать программу, выполняющую следующие действия: 1. после запуска программы в окне изображаются пять сброшенных флажков.2. щелкать разрешено только на сброшенных флажках. щелчок на установленном флажке не действует.3. при установке какого-то флажка меняется состояние двух следующих флажков. при этом сброшенные флажки устанавливаются, а установленные - сбрасываются., , как можно скорее!

Const n=5; var i,q: integer; a: array [1..n] of integer; b: array [1..n] of integer; c: array [1..50] of integer; begin writeln ('заполните первый массив'); for i: =1 to n do read (a[i])                       ; writeln ('заполните второй массив') ; for i: =1 to n do read (b[i]); for i: =1 to n do begin if i mod 2< > 0  then begin  q: =q+1; c[q]: =a[i];   q: =q+1; c[q]: =b[i];   end;   end; for i: =1 to n do  if b[i]> 0  then begin    q: =q+1;     c[q]: =b[i];     end;   if q=0  then writeln ('условие не выполняется')  else begin for i: =1 to q do write (' ',c[i]); end end.p.s. вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной  константой. можно эту константу поменять, это все на ваше усмотрение.p.p.s. программа написана на pascal abc.