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

var   i, n : integer; // объявляем две переменные.  a, b : real; // объявляем две переменные.begin  write (\' Введите число:\'); // вывод на экран строки.  readln(n); // считываем число, введенное с клавиатуры.   repeat // начало цикла.     i:= i + 1; // счетчик шагов цикла.     if ( i mod 2 = 0) then // если  число четное.        a := a + power(i,2)  // считаем сумму квадратов.    else // если число нечетное.        b := b + power(i,3)  // считаем сумму кубов.   until i = n;  // условие выхода из цикла. writeln (\'Сумма квадратов четных чисел от 1 до \', n, \' равна \', a); // вывод на экран строки. writeln (\'Сумма кубов нечетных чисел от 1 до \', n, \' равна \', b); // вывод на экран строки.end.