Напишите программу, которая по введенному не более, чем четырехзначному числу K

Держи на солидном языке:

javascript:var K = parseInt(prompt().substr(0, 4)), сумма = 0; while (K gt; 0) сумма += K % 10; K = K / 10 0; alert(сумма);

var k:integer;

begin

write ('Введите не более, чем четырехзначное число: ');

readln (k);

writeln ('Сумма цифр одинакова: ',k div 1000 + k div 100 mod 10 + k mod 100 div 10 + k mod 10)

end.