составьте программу, которая определяет, принадлежит ли введённое целое число x интервалу (10, 20), и выводит на экран соответствующее сообщение: "Принадлежит" либо "Не принадлежит"

program zadacha;vara:integer;beginread(a);if (a>=10)and(a<=20)thenwrite('Принадлежит')elsewrite('Не принадлежит')end.