Может кто нибудь написать небольшую программу по паскалю с массивами. И описать…

Задание одномерного массива: 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 dobeginfor j: =1 to m dowrite (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 doif a[i] УсловиеОтбора then k: =k+1;