1. Составить программу, которая вычисляет сумму и среднее арифметическое чисел вводимых с клавиатуры, пока не будет введено число 0. 2. Составить программу, которая вычисляет сколько лет можно выполнять план по отлову рыбы, если запасы рыбы составляют а тонн, ежегодный прирост рыбы 25%, ежегодный план отлова с тонн.
PascalABC

1)Program n1;var sum,k,a: integer;beginsum:=0;k:=0;readln(a);while a<>0 dobeginsum:=sum+a;k:=k+1;readln(a);end;write('сумма: ',sum,'; срзнач: ',sum/k);end.2)Program n2;var a,c,sum: real;k: integer;begink:=1;readln(a,c);sum:=a;repeatsum:=sum+a*0.25;k:=k+1;until sum>=c;write(k); end.