Как сравнить на равность три массива? (паскаль)

Question

допустим, если равны все три массива, то присвоить какой-нибудь переменной 2, если равны 2 из 3, то присвоить 1, в других случаях присвоить 0

забыл сказать, двухмерный массив, хотя, это не так важно, думаю

ну я так понимаю, это сравнивается только равно или не равно, но не учитывает тот случай, когда 2 из 3 равны

Анастасия Однорог · Accepted Answer

Поэлементно, как еще. 
equal:=true; 
for elem:=1 to ArraySize do 
 if A[elem]<>B[elem] then equal:=false; 
writeln(equal);