Помогите решить задачку Pascal
Ввести целое положительное число и определить верно ли что сумма его цифр больше 15

var n,sum: integer;
begin
read(n);
while (n>0) do begin
 sum:=sum+(n mod 10);
 n:=n div 10;
end;
if (sum>15) then write('Верно') else write('Неверно');
end.

n-вводимое число, sim-сумма цифр

sum*