Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное. Использовать цикл WHILE

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