Как понял. Задаешь два вектора. И начинаешь сравнивать значения первого вектора, со значениями второго. Если какие то значения окажутся равными. то записать какой слот они занимают в первом векторе. После проверки всех чисел, удалить запомненные слоты в первом векторе
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF a = b AND a = c AND b = c THEN
PRINT "РАВНЫ"
ELSE
PRINT "НЕ РАВНЫ"
END IF
<span>END</span>
//PascalABC.NET v3.3 1633
begin
var days: array [1..7] of string:=('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n:=ReadLnInteger('Введите номер дня: ');
writeln(n+' день — ' + days[n mod 7]);
end.