Program Znanija;
var n, a, b, sum: Integer;
begin
write('Write please ab');
read(n);
a := n div 10;
b := n mod 10;
sum := a + b;
write('Sum = ');
write(sum);
end.
program Znanija;
var n, a, b, c, sum: Integer;
begin
write('Write please abc');
read(n);
a := n div 100;
b := n div 10 mod 10;
c := mod 10;
sum := a + b + c;
write('Sum = ');
write(sum);
end.