Решить на паскале, только через функцию

Скажем поступок,где Карлсон воровал плюшки,высоко безнравственен.Воровать вообще не хорошо,но с точки зрения детской литературы-это выглядит даже более чем забавно.Ведь Малыш своему другу Карлсону,что его заперла злая домоуправительница,и не дает вкусняшки,поэтому,со стороны автора,это выглядит как маленькая хитрость.Карлсон как верный друг просто не мог оставить малыша в такой детской беде и конечно же ему Ведь Карлсон зная что в соседней комнате лежат плюшки,мог сам из тихонько сьесть,но опять проявил свою любовь и заботу к малышу и поделился с ним.Считаю что это выглядит как маленькая месть-хитрость,и учит нас тому,что друзей в жизни надо иметь как можно больше.

program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.