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

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 lt; 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.