var
a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)
begin
readln(a);
case (a) of
6..17:
writeln('Равны');
else
writeln('Не равны');
end;
end.
Но если нужно через if..then..else:
var
a: byte; //Возраст явно не больше 255 лет и не меньше 0 :)
begin
readln(a);
if ((a >= 6) and (a <= 17)) then<br> writeln('Равны')
else
writeln('Не равны');
end.