Дано натуральное число:

- найти сумму цифр этого числа;

- верно ли, что число начинается и заканчивается одной и той же цифрой.

Program asdf;

var a, i. b:integer;

s:string;

begin

readln (a);

s:=inttostr (a);

a:=length (s);

b:=0;

for i:=1 to a do

b:=b+s[i];

writeln (b);

if s[1]=s[a] then writeln ('равны') else writeln ('неравны');

end.