ДАЮ 29 баллов. ПОМОГИТЕ, ПОЖАЛУЙСТА, НАПИСАТЬ ПРОГРАММУ и БЛОК-СХЕМУ:ввести целое число и найти сумму его цифр.

Блок-схема - в прилагаемом файле. Программа:var n,s:integer;beginwrite('n = ');readln(n);n:=abs(n);s:=0;while n>0 do begin s:=s+n mod 10; n:=n div 10; end;writeln('s = ',s);end.Пример:n = -62845s = 25