1. Создайте в текстовом редакторе документ из 3 страниц (можно не заполнять страницы полностью).
2. Наберите на первой странице небольшой текст из 4-5
предложений на тему «Моя любимая профессия».
3. ответьте на вопрос, чем вам нравится выбранная вами
профессия. Подытожьте свои мысли и разместите текст
на второй странице.
4. На третьей странице разместите ответ из 3-4 предложе
ний на вопрос, какие специальности отсутствуют в на
шей стране.
5. Откройте вкладку Ссылки, выберите раздел Оглавлени
и нажмите кнопку Оглавление, выберите стиль Автоса
бираемое оглавление 1 и создайте оглавление к своем
документу.​

Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 10х10. Также нам неизвестен тип данных (целочисленный или вещественный), так что допустим, что массив заполняется целочисленными элементами. Тогда, программа примет следующий вид:

 VAR

A: ARRAY [1..10, 1..10] OF INTEGER;

 i, j: BYTE; {Переменные-счётчики циклов}

 flag: BOOLEAN: {переменная флаг логического типа, сигнализирующая о наличии или отсутствии отриц.элементов в первой строке}

BEGIN

flag := FALSE; {Изначально допустим, что отриц.элементов нет}

 FOR i := 1 TO 10 DO

 FOR j := 1 TO 10 DO

 READLN (A[i, j]); {Заполняем массив элементами}

FOR i := 1 TO 10 DO

IF A[1, i] < 0 THEN flag := TRUE; {Проверяем первую строку на наличие отриц. элементов}.

IF flag THEN WRITELN ('Да') ELSE WRITELN ('Нет');

END.

Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.

1)
var
x : integer;
begin
readln(x);
if x mod 2 = 0 then
  writeln('Число четное');
else
  writeln('Число нечетное');
end.

проверим прямоугольность с теоремы Пифагора

var
a,b,c : integer;
begin
readln(a,b,c);
if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln('Треугольник прямоугольный);
elseif(b=a) or (b=c) or (a=c) then writeln('Треугольник равнобедренный');
elseif(a=b) and (b=c) and (a=c) then writeln('Треугольник равносторонний');
else writeln('Треугольник не прямоугольный, не равнобедренный и не равносторонний');
end.