Напишите программу, которая по введенному не более чем 4-х значному числу K будет выдавать сумму его цифр.
На входе K(0<=k<=9999).

vark,s: integer;beginWriteln('Введите число K:');Readln(k);if (k<=9999) and(k>=0) thenbeginif k div 1000 <>0 then s:= (k mod 10) + (k div 1000) + ((k  div 100)mod 10) + (k div 10)mod 10;if (k div 1000 = 0)  and (k div 100 <> 0) thens:=(k mod 10) +( k  div 100) + (k div 10)mod 10;if (k div 100 = 0)  and (k div 10 <> 0) thens:= (k mod 10) + (k div 10); if (k div 10 = 0)  and (k mod 10 <> 0) thens:= k;Writeln('Сумма цифр = ', s);end;end.