Упрости и запиши верный ответ. (D∨N)&(D∨N¯¯¯)

Математика:ложное4+3=5, истинное 4+4=8
Биология:ложное животные это неживая природа,истинное биология это  система наук, объектами изучения которой являются живые существа их взаимодействие с окружающей средой
Информатика: ложное информатика - наука о термической обработке металлов,
истинное  информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации
История-ложное: первая мировая война началась 7 августа 1920,истинное первая мировая война началась 28 июля 1914
География-ложное Эльбрус — высочайшая горная вершина Европы,
истинное Эльбрус – не высочайшая горная вершина Европы
Литература-ложное:С.Есенин-драматург,истинное А.Пушкин-поэт-драматург

1) на Pascal: 
var 
t,i,j:integer; 
a:array[1..4]of integer; 
begin 
for i:=1 to 4 do 
begin 
write('Vvedite ',i,'-i 4islo: '); 
readln(a); 
end; 
for i:=2 to 4 do 
for j:=4 downto i do 
if a[j-1]>a[j] then 
begin 
t:=a[j-1]; 
a[j-1]:=a[j]; 
a[j]:=t; 
end; 
writeln('Raspolagaem 4isla v poryadke vozrastaniya:'); 
for i:=1 to 4 do 
writeln(a); 
readln; 
end. 

2) на С: 
#include <stdio.h> 
#include <conio.h> 
void main(void){ 
int n,a,b,c,d; 
printf("\nVvedite 4x-znachnoe chislo n: "); 
scanf("%i", &n); 
a=n/1000; 
b=(n-a*1000)/100; 
c=(n-a*1000-b*100)/10; 
d=n-a*1000-b*100-c*10; 
if (a+b==c+d) printf("true"); 
else printf("false"); 
getch();