Название сказок в которых встречаются если то или иначе или их можно заменить. где есть выбор.

1.  у лукоморья дуб зеленый; златая цепь на дубе том: и днем и ночью кот ученый все ходит по цепи кругом: идет направо  – песнь заводит, налево  - сказку говорит, там чудеса: там леший бродит, русалка на ветвях сидит…                                    (а.с.пушкин) 2.  колобок 3.  репка 4.  не  помню  названия, но " пойдешь - коня потеряешь  и т. д."

Program aaa;                   var a,b: array[1..4,1..4] of integer; i,j,x: byte; begin     randomize;   //запускаем генератор случайных чисел       // формируем и одновременно выводим матрицу     writeln ('исходная матрица: ');   for i: =1 to 4 do     begin     for j: =1 to 4 do       begin       a[i,j]: =random(-10,10);   //рандомное значение ячейки матрицы       write(a[i,j]: 4)   //вывод ячейки матрицы       end;     writeln;     end;       //поворачиваем матрицу на 90 градусов   for j: =1 to 4 do     begin     x: =0;     for i: =4 downto 1 do       begin       x: =x+1;       b[j,x]: =a[i,j]       end     end;       // выводим итоговую матрицу   writeln;   writeln ('матрица, повернутая на 90 градусов: ');   for i: =1 to 4 do      begin     for j: =1 to 4 do       write(b[i,j]: 4);     writeln     end     end. результат работы программы:   исходная матрица:   -7   -8   3   4   10   -5   -1   -8     3   -9   -7   -1   -2   6   -8   -9 матрица, повернутая на 90 градусов:   -2   3   10   -7     6   -9   -5   -8   -8   -7   -1   3   -9   -1   -8   4

Const n=4; var  a: array[1..n,1..n] of integer; i,j,b: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to n do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; for i: =1 to n div 2 do   for j: =i to n-i do   begin     b: =a[i,j];     a[i,j]: =a[n-j+1,i];     a[n-j+1,i]: =a[n-i+1,n-j+1];     a[n-i+1,n-j+1]: =a[j,n-i+1];     a[j,n-i+1]: =b;   end; writeln('полученный массив: '); for i: =1 to n do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   57   32   69   17   87   33   85   22   89   80   59   13   60   93   96   56 полученный массив:   60   89   87   57   93   80   33   32   96   59   85   69   56   13   22   17