Дано натуральное число:
− найти сумму цифр этого числа;
− верно ли, что число начинается и заканчивается одной и той же цифрой.

program asdf;var a,i.b:integer;s:string;beginreadln(a);s:=inttostr(a);a:=length(s);b:=0;for i:=1 to a dob:=b+s[i];writeln(b);if s[1]=s[a] then writeln('равны') else writeln('неравны');end.