Напишите программы, которые строят изображения трёхмерных объектов с одной процедуры

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

одна из возможных форм курсора : прямая

var s,x,n,i: integer;

begin

  read(x,n);

s: =1;

  for i: = 1 to n do

      s: =s*x;

  writeln(s);

end.

c=a

a=b

b=c