Определите, что будет напечатано в результате выполнения следующего алгоритма:
Var s,k: integer; 
begin
 s:= 100
k:=7
repeat 
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат