program ufhcn;
var n: real;
uses crt;
begin
clrscr;
writeln('вводи число');
readln(n);
if (n> =6) and (n< =14)
then writeln('число входит в ряд')
else writeln('не входит ряд');
end
program ufhcn;
var n: real;
uses crt;
begin
clrscr;
writeln('вводи число');
readln(n);
if (n> =6) and (n< =14)
then writeln('число входит в ряд')
else writeln('не входит ряд');
end