Практичекая по информатики.Помогите пожалуйста
1. Какие значения будет принимать величина- счетчик при выполнении следующего цикла: от f=100 до 1000 шаг a
2. Количество рыбы в реке, в которую сбрасывались загрязнения, ежегодно сокращалось на 20%. Определить, через сколько лет в реке почти не останется (ее количество будет меньше 1) рыбы? Извеcтно, что до начала загрязнения ее было N особей.
 

2. program x;var N,y:integer;beginreadln(N);while N>0 dobegin N:=N - (N div 5); y:=y+1;end;writeln(y);end.