Дан
массив из N вещественных чисел. Выделить другим цветом все его
элементы, принадлежащие интервалу [a,b]

uses crt;
var a,b,n,i:integer;
mas:array[1..100] of integer;
begin
textcolor(white);
writeln('Введите a,b,n:');
read(a,b,n);
writeln('Введите элементы массива:');
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if (mas[i]>a) and (mas[i]<b) then
textcolor(yellow)
else
textcolor(white);
write(mas[i],' ');
end;
textcolor(white);
end.

да на обычном прошло, спасибо большое!

Пожалуйста.

а вы случайно не разбираетесь в дискретной математике, про синтез автомата распознавателя кодовой последовательности