Найти сумму цифр четырехзначного числа
Program nfff;
var ab,S,a,b: integer;
Begin
WriteLn('найти сумму цифр четырехзначного числа');
Write('Введите ab= ');ReadLn(ab);
b:=ab mod 10;
a:=ab div 10;
S:=a+b;
writeln('S=',S);
End.