Сс

И на ято отвечать???

Объяснение:

Нет его

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n