Фото №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.