РЕБЯТА МНЕ НУЖЕН URL ВК ЧТОБЫ ОН НЕ СОДЕРЖАЛ ХОСТА

можно назвать - собака 

или 

агент @ мail.ru 

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.