Фото №4 ! нужна ! у нас программа pascal abc ! не игнорировать.

var N,N1,s:integer;

BEGIN

writeln('Введите целое число:');

readln(N);

N1:=N;

while N<>0 do begin

s:=s+N mod 10;

N:=N div 10;

end;

writeln('Сумма цифр числа ',N1,' равна ',s,'.');

end.