напишите программу на Pascal

[emtecif]

напишите плз программу на Pascal

Дано одномерный массив Р, состоящий из 16-ти елементов. Найти те элементи, модуль которых равен заданному числу А. Число А - с клавиатуры

и еще одну плз

Найти элементы в каждом столбце матрицы С размером 7х7, которые больше числа А и меньше числа С. Определить количество таких элементов. Числа А =- 2 и С = 3,5

[_-Re@l-_]

Дано одномерный массив Р, состоящий из 16-ти елементов. Найти те элементи, модуль которых равен заданному числу А. Число А - с клавиатуры

var P:array[1..16] of integer;
     A,i:integer;
begin
       readln(A);
       for i:=1 to 16 do
       begin
               readln(P[i]);
               if abs(P[i]) = A then
               write(P[i],' ');
       end;
       readln;
end.