составить программу на языке ПаскальПринадлежит ли число n интервалу (a,b).

var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.