Запишите в ячейках a1, a2, a3 числа 1, 3 и 5 соответственно. выделите весь диапазон и, потянув за его правый нижний угол, заполните ячейки a4-a25 (они заполнятся автоматически, оказавшись под выделением какое число записано в ячейке a25?

Var     a,b,d,k,kp: integer;     p: boolean; begin kp: =0; readln(a,b); if (a = 1)or(a = 2) then     begin     kp: =2;     write(2,' ',3)     end else if a = 3 then               begin               kp: =1;               write(3);               end; if a < 5 then a: =5 else if a mod 2 = 0 then a: =a+1; while a< =b do     begin     k: =trunc(sqrt(a));     d: =3;     p: =true;     while d < = k do           begin           if a mod d = 0 then p: =false;           d: =d+2           end;     if p then           begin           kp: =kp+1;           write(' ',a);           end;     a: =a+2     end; if kp = 0 then write(0) end.

Const n=5; m=6; var  a: array[1..n,1..m] of integer; i,j,min,jmin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; for i: =1 to n do   begin   write(i,': ');   min: =a[i,1]; jmin: =1;   for j: =2 to m do   if a[i,j]< =min then begin min: =a[i,j]; jmin: =j; end;   writeln('min = a[',i,',',jmin,'] = ',min);   end; end. пример: исходный массив:   31   15   62   21   20   19   65   43   65   26   97   78   13   43   64   11   84   1   83   9   39   37   61   39   44   27   16   81   76   77 1: min = a[1,2] = 15 2: min = a[2,4] = 26 3: min = a[3,6] = 1 4: min = a[4,2] = 9 5: min = a[5,3] = 16