Напечатать сумму кубов чисел -10,-8,-6,-4,-2.pascal?

Var sum,num,i:integer;beginwriteln('Введите числа');for i:=1 to 5 do begin readln(num); sum:= sum + sqr(num) * num; end;writeln(sum);end.

P.S sqr(num)*num Возводит в куб