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
writeln(Равны)
else
writeln(Не равны);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.