Напишите программу которая вводит последовательность целых чисел заканчивающихся нулём и определяет сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10

Pascal const      n = 100; // максимальное число элементов        var    a : array [1..n] of integer;     l,i,c,s,k : integer;       begin  l : = 1;   c : = 10;       while c < > 0 do    begin    readln (c);     a[l] : = c;     l : = l + 1;   end;     l : = l -1;     k : = 0;       for i : = 1 to l do      begin    c : = a[i];     s : = 0;       while c < > 0 do      begin        s : = s + c mod 10;         c : = c div 10;       end;       if s = 10 then      k : = k + 1;     end;   writeln ();   writeln (k);         end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.