var i, k, N1, N : integer; Begin Writeln('Введите число первого дня'); readln(K); Writeln('Цена за 1 игрушку='); re

var i, k, N1, N : integer;
Begin
Writeln('Введите число первого дня');
readln(K);
Writeln('Цена за 1 игрушку=');
readln(N);
N1:=0;
For i:=k+1 to 31 do
N1:=N1+N;
writeln;
Writeln (' стоимость всех игрушек =',N1);
End.

Дети перед Новым Годом решили вырастить большую ёлку. Они посадили её К-го декабря. Ёлка оказалась достаточно странной и росла очень быстро. Уже на следующий день появился ствол. Ещё через день от ствола отошли первые две ветки. В каждый следующий день от каждой существующей ветки и от ствола отходило ровно по 2 ветки. 31 декабря дети стали наряжать ёлку. На вершину ствола они нацепили звезду, а на все ветки повесили по 1 игрушке. Каждая игрушка стоит по N рублей. На сколько рублей дети разорили своих родителей?
Вводится два числа 19<=К<=31 и 1<=N<=2005.
Ваша задача вывести единственное число – суммарную стоимость игрушек
Пример входных данных:
28 21
Пример выходных данных:
168

Проверьте