var a:real;
begin
writeln ('Введите число a');
readln (a);
if ((a>=3) and (a<5)) or (a>7)then write ('Ваш ответ',' ',a*2)
 else write ('Не принадлежит');
end.