program RemainderEqualsOne;

const
M = 3;

var
arr: array[1..8] of integer;
i: integer;

begin
// Ввод элементов массива
for i := 1 to 8 do
begin
write('Введите элемент ', i, ': ');
readln(arr[i]);
end;

// Поиск элементов с остатком от деления на M равным 1
writeln('Элементы массива с остатком от деления на ', M, ' равным 1:');
for i := 1 to 8 do
begin
if arr[i] mod M = 1 then
writeln(arr[i]);
end;
end.