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

var sum,n: integer;beginreadln (n);while n <> 0 dobeginif (n > 9) and (n < 100) then sum := sum +n;end;writeln (sum);end.