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

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