Составьте программу,которая проверяет,является ли человек заданного возраста...

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.