Дано натуральное число n. определить является ли сумма этих чисел нечетным

Var   i, n, k, c, e: integer;   s: string; begin   write('введите целое положительное число: ');   readln(n);   str(n, s);   c : = 0;   for i : = 1 to length(s) do   begin       val(s[i], k, e);       c : = c + k   end;   if c mod 2 = 0 then writeln('сумма цифр числа четная')   else writeln('сумма цифр числа нечетная') end. тестовое решение: введите целое положительное число: 534643 сумма цифр числа нечетная введите целое положительное число: 23524523 сумма цифр числа четная

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.