Решите задачу на Пример работы:
Ввод: 1
Вывод: 1
Ввод: 3
Вывод: 6

без остатка нет

25: 2=12+1 клетка в остатке

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

ну например

в первом столбике пишешь  числа попорядку

во втором столбике пишешь "=a1*a1" и протягиваешь вниз на всю таблицу

в третем пишешь "=a1*a2" и протягиваешь вниз на всю таблицу

в первом столбике у нас получается число

во втором  квадрат числа

в третем - куб числа

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал