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

i, n, x, sum, count: integer;

odd: boolean;

beginwrite ( \'Введите количество чисел: \');readln (n);sum := 0;count := 0;i := 1;if (n mod 2 = 1) then odd := true else odd := false;while i < n do beginif (odd) thenbeginsum := sum + i * i * i;endelsebeginsum := sum + i * i;end;i := i + 1;end;writeln (\'Сумма равна \', sum, \'.\');readln ();end.