Вася стоит на первой ступеньке свежепокрашенной лестницы и собирается подняться на самую верхнюю, двенадцатую ступеньку. некоторые ступеньки лестницы, а именно, ступеньки с номерами 3 и 9 еще не до конца высохли, и наступать на них вася не намерен. сколькими способами вася может добраться до последней ступеньки, если он готов шагнуть на следующую ступеньку или перешагнуть через одну ступеньку. вниз вася ни в какой момент не спускается.

Var a: array [1..10, 1..10] of integer;         i, j, max, min, imin, imax, jmin, jmax: integer; begin      imax: =0; imin: =0; jmax: =0; jmin: =0;       max: =-maxint;   min: =maxint;       for i: =1 to 10 do          begin              for j: =1 to 10 do                  begin                  a[i,j]: =random(89)+10;                   write(a[i,j],' ');                   if a[i,j]< min then                          begin                              min: =a[i,j];                               imin: =i;                               jmin: =j;                           end;                       if a[i,j]> max then                            begin                                  max: =a[i,j];                                   imax: =i;                                   jmax: =j;                             end;                       end;                       writeln;                   end;     writeln;     writeln('максимальный элемент: ',max);     writeln('его индекс ',imax,' ',jmax);     writeln('минимальный элемент: ',min);     writeln('его индекс ',imin,' ',jmin); end.

Var c: array[1..1000,1..1000] of integer; i,j,n,m,sum,aver: longint; begin read(n,m); for i: =1 to n do   for j: =1 to m do   begin   read(c[i,j]);   sum: =sum+c[i,k];   end; aver: =sum div (n*m); for i: =1 to n do begin writeln;   for j: =1 to m do   begin   if c[i,j]< aver then c[i,j]: =0 else c[i,j]: =255;   write(c[i,j],' ');   end; end; end. проверьте на синтаксические ошибки. в данный момент не могу сам это скомпилировать