Сделать блок схему.

program pr1;
var a: array [1..100, 1..100] of integer;
i, n, j : integer;
gsum, psum, srgeom: real;
begin
psum : = 0;
gsum : =0;
srgeom: =0;
writeln('введите размер матрицы ');
readln(n);
for i : = 1 to n do
for j : = 1 to n do
a[i, j] : = random(21);
for i : = 1 to n do
begin
for j : = 1 to n do
write(a[i, j]: 3);
writeln;
end;
for i : = 1 to n do
psum : = psum + a[i, n - i + 1];
for i : = 1 to n do
gsum : = gsum + a[i,i];
srgeom: =sqrt(psum*gsum);
writeln('среднее : ',srgeom);
end.

Var i,ne,ch,n:integer;
      a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
      begin
      a[i]:=random(80)+20;
      write(a[i],' ');//Вывод на экран полученного массива                         
      if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
      end;                      //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.

Перед нами репродукция картины художника-мариниста Ивана Константиновича Айвазовского под названием «Девятый вал». Это — одна из его самых известных картин. Изображен на ней темный, бушующий океан. Громадная волна с пенистым гребнем неумолимо надвигается на крохотный обломок мачты. Можно догадаться, что корабль потерпел крушение. Оставшиеся в живых люди судорожно вцепились в мокрое дерево. Их пятеро. Все наполовину в холодной воде. Они обессилены, испуганы, истощены неравной борьбой со стихией. А за первой волной встает вторая, еще более грозная. Лучи восходящего солнца пронизывают водную толщу, придавая ей желтоватый оттенок. Картина поражает обилием и сочностью красок. Зеленые, синие, фиолетовые, розовые — все оттенки смешались в кипении морской стихии. С огромным, непередаваемым мастерством художник противопоставляет величественный, слепой в своей ярости океан горстке людей, наделенных силой и мужеством. Они будут бороться до конца, хоть и кажутся хрупкими песчинками по сравнению с морем. Смотрим на картину и кажется, что вода непрерывно движется, изменяется. Представляя себя на месте этих затерянных в океане людей, понимаем, насколько бесконечен их подвиг. Это подвиг настоящих моряков. Их силе воли и духа позавидует каждый.Как необъятно величие разбушевавшейся морской стихии! Как велика и несокрушима ее сила! Лавина водного потока невероятной мощи готова смести все на своем пути. Она словно говорит нам, что для нее не существует преград, и подтверждает это всем своим устрашающе-прекрасным видом. Блики лунного света оживляют картину, придают ей оригинальность и даже, в какой-то мере, романтическое звучание. Ощущение глобальности усугубляется неповторимым огненным заревом, поглотившим все небо и бросающим отблески на гребни вздыбленных волн. Пылающее ярко-красными всплесками где-то на горизонте, оно слегка затихает лишь высоко в небесах.В центре этой бушующей стихии оказалась группа людей. На обломках потерпевшего крушение корабля они отчаянно сражаются с волнами, словно бросая вызов всесокрушающей стихии. На что надеются эти люди? Откуда ждут Может, столкнувшись с бедствием, они не теряют присутствия духа и, сплотившись перед лицом общей опасности, стараются выжить в необъятных просторах бушующей бездны. Именно в этом и состоит мужество человека, стремящегося, несмотря ни на что, преодолевая любые преграды, добиться своей цели, выжить во что бы то ни стало. Вот как я понимаю идею художника, в чем вижу смысл его произведения. Великий мастер пейзажа, Айвазовский предстает перед нами и знатоком человеческих душ. Возвеличивая мощь морской стихии, он, вместе с тем, открывает перед нами героизм и отвагу людей, столкнувшихся с этой мощью и не устрашившихся ее. Очевидно, то, с каким мастерством художнику удается передать все подробности природных явлений и оттенки человеческих чувств, определяется опытом самого автора. Много путешествуя, будучи очевидцем различных событий, в том числе подвигов моряков Черноморского флота, Айвазовский искусно отобразил все впечатления в своих картинах. Это подтверждают такие его работы, как «Чесменский бой», «Черное море» и многие другие. Но картина «Девятый вал» является, на мой взгляд, одним из самых величественных и впечатляющих произведений художника.