Составьте программу , определяющую, является ли целое положительное число трехзначным.

Представил на языке pascal: program z_1; var n: integer; begin   write('n= ');   readln(n);   if (n> =100)and(n< =999) then writeln ('число является трехзначным') else writeln('число не является трехзначным'); end.

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.