Винни-пуху прислали посылку – k литров мёда. сначала он попытался разлить его в бочонки по 2 литра, но вот - 1 литр остался. потом попытался разлить в бочонки по 3 литра, и опять осталось 2 литра. и так далее, пока он не разлил мёд в бочонки по n литров, и у него осталось n-1 литров мёда. определите, какое минимальное количество мёда могли прислать винни. формат входных данных: строка, содержащая целое число n (2≤n≤19). формат выходных данных: вывести требуемое число k.
begin
readln(n);
k:=1;
f:=false;
while not f do
begin
k:=k+1;
f:=true;
for i:=2 to n do
f:=f and (k mod i=i-1);
end;
writeln(k);
end.
Пример (для 19 долго считает, можно оптимизировать, если нужно):
19
232792559