СОСТАВИТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ И ВЫВОДА НА ЭКРАН КУБОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ ОТ -5 ДО 12
ПОМОГИТЕ ПЛИЗ)

var -5,12,i:integer; function fact(j:integer):longint; begin if j=1 then fact:=1 else fact:=j*fact(j-1); end; begin readln(12,-5); for i:=-5 to 12 do if i mod 2 =0 then write(fact(i),' '); writeln; end.