Паскаль авс.net ! барон мюнхаузен выйдя на экологически чистую охоту , зарядил свое ружье косточками вишен. после того как он удачно попал между рога n оленям , в которых попало в соответствии k1 , k2 , ,kn косточек , у них на головах выросли замечательные молодые вишенки . сколько новых саженцев смог подарить барон мюнхаузен -исследователям?
begin
var n := ReadInteger('Укажи число оленей:');
var s := 0;
Writeln('Вводи количество косточек, попавших в каждого оленя');
for var i := 1 to n do
s += ReadInteger;
Writeln('Количество саженцев = ', s)
end.