пройти лабиринт роботу

А до чего именно дойти?

находим занимаемый объм в битах

640*640*2,5*4

делим на 1024 и находим его в килобитах

4000 кб

12000/4000=3 (3 бита цветности)

не ясно что нужно, кб-килобиты или килобайты

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n