Write a program that enters a sequence of integers ending in zero and determines how many of these numbers

Write a program that enters a sequence of integers ending in zero and determines how many of these numbers satisfy the condition: the sum of the values of the digits in the decimal notation of the number is 10

We need to write a program that enters a sequence of integers ending in zero and determines how many of these numbers satisfy the condition: the sum of the values of the decimal digits is 10.
We write the program:
Pascal.
program qq;
var
a, b, s, n: integer;
begin
repeat
readln (a);
b: = a;
s: = 0;
while b> 0 do
begin
s: = s + b mod 10;
b: = b div 10;
end;
if s = 10 then inc (n);
until a = 0;
writeln (n);
end.
The program has been written.