##
var k := ReadInteger('Длина последовательности:');
var (M, L , N) := ReadInteger3('Введите M, L и N:');
Writeln('Вводите данные');
k := ReadSeqInteger(k).Where(t -> (t mod M = 0) and (t in L..N)).Count;
Print('Количество значений, удовлетворяющих условию:', k)
##
var k := ReadInteger('Длина последовательности:');
var (M, L , N) := ReadInteger3('Введите M, L и N:');
Writeln('Вводите данные');
k := ReadSeqInteger(k).Where(t -> (t mod M = 0) and (t in L..N)).Count;
Print('Количество значений, удовлетворяющих условию:', k)