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

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

odd: boolean;

begin

write ('Введите количество чисел: ');

readln (n);

sum : = 0;

count : = 0;

i : = 1;

if (n mod 2 = 1) then odd : = true else odd : = false;

while i < n do

begin

if (odd) then

begin

sum : = sum + i * i * i;

end

else

begin

sum : = sum + i * i;

end;

i : = i + 1;

end;

writeln ('Сумма равна ', sum, '.');

readln ();

end.