1 рис.-караси и хищные. 2 рис.-в 1 круге-караси,во 2-хищные,в большм круге-рыбы
n:=5;
x:=0;
for i:=1 to n do
x:=i;
После выполнения цикла значение x будет равно 5
Label1.Caption:=IntToStr(x);
На экран будет выведено 5
Несколько есьи отключить интернет)
Язык....................................................