цикл с параметром. курильщик

[olchik1980]

Курильщик выкуривал K сигарет в день. Потом он решил бросить курить. Для этого каждый день он выкуривает на 1 сигарету меньше. В первый день бросания курить он выкурил K-1 сигарету, во второй день K-2 сигареты, …, в последний день – 1 сигарету. Определите N – количество выкуренных за этот период сигарет и M – количество сигарет оставшихся в последней пачке (в пачке 20 сигарет).
вх 2
вых 1 19

[Mad_Cat]

s:=(2*1+(k-1)) div 2 *n;
ost:=20-(s mod 20);
if ost=20 then ost:=0;