Должно стоять вместо * 4
потому что 1*4=4 4*4=16 16*16=64 и т. д.......
По замечанию уважаемой nelle987 и представленной ею формулой
![2^{n }* 3^{m}](https://tex.z-dn.net/?f=2%5E%7Bn+%7D%2A+3%5E%7Bm%7D+)
, корректирую свой ответ.
Все числа типа
![2^{n }* 3^{m}](https://tex.z-dn.net/?f=2%5E%7Bn+%7D%2A+3%5E%7Bm%7D+)
между 123 и 172:
![62 = 2 * 81 = 2^{1}*3^{4}](https://tex.z-dn.net/?f=62+%3D+2+%2A+81+%3D+2%5E%7B1%7D%2A3%5E%7B4%7D)
<span>
![144 = 16 * 9 = 2^{4}*3^{2}](https://tex.z-dn.net/?f=144+%3D+16+%2A+9+%3D+2%5E%7B4%7D%2A3%5E%7B2%7D)
</span><span>
</span>
Var
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.
uses crt; {Подключение внешнего модуля}
var {Описание переменных}
a:array [1..100] of integer;
n,i:integer;
begin
write('n='); {Вывод текста на экран}
read(n); {Чтение текста}
for i:=1 to 3 do
a[i]:=random(51); {Значение первых 3 элементов}
for i:=4 to n do
a[i]:=((a[i-1]+a[i-2]+a[i-3]) mod 10); {Значение остальных элементов}
writeln('Последовательность:'); {Вывод текста на экран}
for i:=1 to n do
write(a[i],' '); {Вывод последовательности на экран}
writeln; {Перевод указателя на следующую строку}
write('N-ный элемент: ',a[i]); {Вывод текста и элемента на экран}
end.