На фото можете решить, желательно в документом варианте или как сможете на листе, фото, можно в электронном главное что бы было правильно, за решение, и мне нужен развёрнутый и правильный ответ, на фото все есть и пояснение...

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.

Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 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.

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