НАПИСАТЬ 2 ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ! 30 БАЛЛОВ1. Дан первый элемент массива В, вычисленный случайным образом. Сформировать массив В(15) в котором каждый последующий элемент массива больше предыдущего на удвоенный порядковый номер искомого элемента. Вывод ответа осуществить в столбец.2. Дана таблица К(7,5), вывести её на экран. Заполнить её случайными числами. Найти сумму элементов этой таблицы, значения которых больше 15.​

Пример решения первой задачи на языке Pascal:```program task1;var B: array[1..15] of integer; firstElement, i: integer;begin // Ввод первого элемента writeln('Введите первый элемент массива: '); readln(firstElement); // Формирование массива B[1] := firstElement; for i := 2 to 15 do B[i] := B[i-1] + 2*(i-1); // Вывод массива writeln('Массив B(15): '); for i := 1 to 15 do writeln(B[i]);end.```Пример решения второй задачи на языке Pascal:```program task2;const ROWS = 7; COLS = 5;var K: array[1..ROWS, 1..COLS] of integer; i, j, sum: integer;begin // Заполнение таблицы случайными числами for i := 1 to ROWS do for j := 1 to COLS do K[i,j] := Random(20); // Генерация чисел от 0 до 19 // Вывод таблицы на экран writeln('Таблица K(7,5): '); for i := 1 to ROWS do begin for j := 1 to COLS do write(K[i,j]:3); writeln; end; // Подсчет суммы элементов > 15 sum := 0;