Найти сумму цифр четырехзначного числа 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.

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