Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal

Паскаль пишется как Pascal. var a, sum: integer; begin read (a); sum: =0; while (sum <= 10) and (a > 0) do begin sum: =sum+a mod 10; a: =a div 10; end; if sum > 10 then write ('Yes') else write ('No'); end.