Question

Яке значення S буде виведено в текстове поле?var N,d,S: Integer;begin N := 345; S := 0; Repeat d := N mod 10; S := S+d; N := N div 10; Until N=0; Edit2.Text := IntToStr(S);end *
Какое число догжно быть? ​