вывести ** экран квадратные кубы ничетных чисел. прагрума PASCAL. Решите пожалуйста.....

Question

вывести на экран квадратные кубы ничетных чисел. прагрума PASCAL. Решите пожалуйста.. зарание спасибо)

Answer 1

var i:integer;

BEGIN

  for i:=1 to 1000 do

    if i mod 2 = 1 then writeln(i*i*i);

END.