Пож-та,помогите решить задание (верхнее)+!!!Спасибо всем ,кто ответил.

var s:real;a, p:integer;begin readln (a);p:=a;s:=0;while p>0 dobegins:=s+p mod 10;p:=p div 10;end;writeln (s);end.