Вводится число (0конец ввода) определить сумму двухзнычных. Пожалуйста!!

Question

Вводится число (0конец ввода) определить сумму двухзнычных.
Пожалуйста!!

Answer 1

Var sum,n: integer;
begin
readln (n);
while n <> 0 do
begin
if (n > 9) and (n < 100) then sum := sum +n;
end;
writeln (sum);
end.