Шишка любимая игра васи переставьте буквы

Шашки любимая игра васи

Var   a, i, k2, k4, k5, c, d, n: integer; begin   write('введите количество учеников в классе: '); readln(n);   if (n = 32) then   begin       c : = 1;       d : = 5;       writeln('введите оценки учеников: ');       k2 : = 0;       k4 : = 0;       k5 : = 0;       i : = 1;       while i < = n do       begin           write('оценка ученика №',i,': '); readln(a);           if (c < = a)and(a < = d) then           begin               case a of                   2: k2 : = k2+1;                   4: k4 : = k4+1;                   5: k5 : = k5+1;               end;               i : = i+1;           end           else               writeln('неприемлимое значение! допустимые значения: [',c,'..',d,']');       end;       writeln('количество двоек: ',k2);       writeln('количество четвёрок: ',k4);       writeln('количество пятёрок: ',k5);   end   else       writeln('в классе не 32 ученика'); end.

Есть вопросы пиши в личкупаскальvarx, s, a: real; //описание переменных вещественного типаi: integer; //описание переменных целого типаbeginreadln(x); ввод  переменной  x через клавиатуруa : = x; переменной  a  присваивается знчение переменной x s : = a;   переменной    s присваивается знчение переменной  a for i : = 2 to 13 do  //цикл for выполняется пока переменная    i  не станет больше 13 if i mod 2 = 1 then begin  если  i mod 2 = 1  истино то выполняется блок программы ниже a : = a * (-1) * x * x / ((i - 1) * i); s : = s + a; end; writeln(s); вывод переменой  s end.