Может кто нибудь написать небольшую программу по паскалю с массивами. И описать что выполняет каждая команда ? Нужно на олимпиаде хоть что нибудь написать .

задание одномерного массива: var ИмяМассива:array [НижняяГраница..ВерхняяГраница] of ТипЭлементов; задание двумерного массива: var ИмяМассива:array [НижняяГраница1..ВерхняяГраница1,НижняяГраница2..ВерхняяГраница2 ] of ТипЭлементов;   заполение массива: одномерный массив: for i:=1 to 5 do readln(a[i]); {ввод с клавиатуры} двумерный массив: for i:=1 to 3 do                                        for j:=1 to 2 do readln(a[i,j]);   вывод массива на экран: в столбец: for i:=1 to 5 do writeln(a[i]); в строку: for i:=1 to 5 do write(a[i],' '); матрица двумерного массива: for i:=1 to n do begin for j:=1 to m do write (a[i,j]:4); writeln; end;   действия с одномерным массивом: вычисление суммы элементов: s:=0; for i:=1 to n do s:=s+a[i]; подсчет элементов, удовлетворяющих условию: k:=0; for i:=1 to n do if a[i] УсловиеОтбора then k:=k+1;