Составить линейную программу в delphi печатающую значение true, если указанное высказывание является истинным, и false - в противном случае. : даны три стороны одного и три стороны другого треугольника. эти треугольники равновеликие, т. е. имеют равные площади.

Program project13; {$apptype console} var a,b,c,s,p: real; begin write('a1 = '); readln(a); write('b1 = '); readln(b); write('c1 = '); readln(c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); write('a2 = '); readln(a); write('b2 = '); readln(b); write('c2 = '); readln(c); p: =(a+b+c)/2; a: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s = a); readln end. примечание: программа не проверяет, существуют ли треугольники.

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.