С точки зрения математики и информатики - любыми. Это вопрос предварительной договоренности в рамках конкретной задачи.
Если ответ не устраивает, то уточните: о множествах и объектах, используемых где именно, Вы спрашиваете.
1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>
Необходимо щёлкнуть ЛКМ(левой кнопкой мышью) и выбрать необходимый файл, который вам понадобился.