население города увеличивается на от 1.5% до 3.5% каждый год. Каждый же год, по ряду причин фиксируется убыль населения от 0.5% до 3%, 2016 году население составляло 347000.

Напишите программу, которая выведет на экран предсказываемую численость населения города в каждом году вплоть до 2025.

Определить в каком году был наибольшие прирост и убыль населения!

var n,p,m,max1,max2,im1,im2,i:integer;beginRandomize;n:=347000;max1:=0; max2:=0;for i:=2017 to 2025 do begin p:=round(n*(2*random+1.5)/100); m:=round(n*(2.5*random+0.5)/100); if p>max1 then begin max1:=p; im1:=i; end; if m>max2 then begin max2:=p; im2:=i; end; n:=n+p-m; writeln(i,': n = ',n); end;writeln('Наибольший прирост = ',max1,', ',im1,' год');writeln('Наибольшая убыль = ',max2,', ',im2,' год');end.Пример:2017: n = 3455582018: n = 3499222019: n = 3535322020: n = 3569792021: n = 3648422022: n = 3716142023: n = 3810202024: n = 3899032025: n = 388485Наибольший прирост = 11702, 2023 годНаибольшая убыль = 10701, 2020 год