Найти сумму четырехзначного числа на языке паскаль

program pro; var k,a,sym:integer; begin readln(k); while k>0 do  begin  a:=k mod 10;  sym:=sym+a;   k:=k div 10;   end; writeln('Сумма разрядов четырехзначного числа равна ',sym) end.