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

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