Gilbord Var a, b, n:integer;

begin
   writeln('Введи n');
   readln(n);
   a:=n mod 10;
   while n>0 do
      begin
            b:=n mod 10;
            n:=n div 10;
      end;
writeln('sum ', a+b);
end.