Почему отношение неравенства можно назвать логическим

Неравенство может иметь истину, или ложь.

Вданном случае всё зависит от контекста вопроса. если "понимает" процессор, то разговор идёт о прямых командах ему. самый яркий пример - компилируемые яп вроде с или pascal, где исходный код пользователя переводится в прямые команды ядру системы (уменьшение уровня абстракции). если за "завершение строки" воспринимать конец команды (в вышеназванных яп это '; '), то компилятор в процессе компиляции (тавтология) разделяет эти строки на отдельные команды, каждая из которых имеет свою последовательность процессорных действий. никакие crlf (конец строки в windows/dos) и lf (в *nix-системах) вне строковых (символов в кавычках вроде 'hello') для процессора роли не играет абсолютно. в принципе, об интерпретируемых яп можно сказать то же самое. для процессора "завершения строки" как такового не существует. прошу простить, если дал не тот ответ, что требовалось.

Проверка существования треугольников не выполняется. 1) var  x1,y1,x2,y2,x3,y3,x4,y4: real; sq1,sq2,sq3,sq4,max: real; procedure s(a1,b1,a2,b2,a3,b3: real; var sq: real); var s1,s2,s3,p: real; begin s1: =sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1)); s2: =sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1)); s3: =sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2)); p: =(s1+s2+s3)/2; sq: =sqrt(p*(p-s1)*(p-s2)*(p-s3)); end; begin write('x1,y1: '); readln(x1,y1); write('x2,y2: '); readln(x2,y2); write('x3,y3: '); readln(x3,y3); write('x4,y4: '); readln(x4,y4); s(x1,y1,x2,y2,x3,y3,sq1); s(x1,y1,x3,y3,x4,y4,sq2); s(x1,y1,x2,y2,x4,y4,sq3); s(x2,y2,x3,y3,x4,y4,sq4); writeln('sq1 = ',sq1: 5: 2,' sq2 = ',sq2: 5: 2,' sq3 = ',sq3: 5: 2,' sq4 = ',sq4: 5: 2); if sq1> sq2 then max: =sq1 else max: =sq2; if sq3> max then max: =sq3; if sq4> max then max: =sq4; writeln('max = ',max: 5: 2); end. 2) var  x1,y1,x2,y2,x3,y3,x4,y4: real; sq1,sq2,sq3,sq4,max: real; function s(a1,b1,a2,b2,a3,b3: real): real; var s1,s2,s3,p: real; begin s1: =sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1)); s2: =sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1)); s3: =sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2)); p: =(s1+s2+s3)/2; s: =sqrt(p*(p-s1)*(p-s2)*(p-s3)); end; begin write('x1,y1: '); readln(x1,y1); write('x2,y2: '); readln(x2,y2); write('x3,y3: '); readln(x3,y3); write('x4,y4: '); readln(x4,y4); sq1: =s(x1,y1,x2,y2,x3,y3); sq2: =s(x1,y1,x3,y3,x4,y4); sq3: =s(x1,y1,x2,y2,x4,y4); sq4: =s(x2,y2,x3,y3,x4,y4); writeln('sq1 = ',sq1: 5: 2,' sq2 = ',sq2: 5: 2,' sq3 = ',sq3: 5: 2,' sq4 = ',sq4: 5: 2); if sq1> sq2 then max: =sq1 else max: =sq2; if sq3> max then max: =sq3; if sq4> max then max: =sq4; writeln('max = ',max: 5: 2); end. пример: x1,y1: -5 1 x2,y2: -3 4 x3,y3: -1 2 x4,y4: -1 0 sq1 =   5.00 sq2 =   4.00 sq3 =   7.00 sq4 =   2.00 max = 7