Вывод на экран кубов чисел от 13 до 3.

var
?:integer;
begin
for i:=?
downto?
do
writeln (i*i*i);
readln;
end.

Ответ:

var i:integer;

begin

for i:=13 downto 3 do writeln (i*i*i);

readln;

end.

Объяснение:

Переменная указана ниже (for i:=?), просто переносим её в раздел объявления переменных (var  ?:integer;)

Цикл for от большего (13) к (downto) меньшему (3) с шагом -1