написать программу которая сумму всех цифр пятизначного числа х который вводится с клавиатуры и определит заканчивается ли эта сумма на три и четная эта сумма или нет
Информатика 8 класс

Program n1;var a: longint;procedure sumdig(var x: longint);var s:longint;begin s:=0; while ( x<>0 ) do begin s := s + (x mod 10);x := x div 10;end;if s mod 10=3 then writeln('оканчивается на 3')else writeln('не оканчивается на 3');if s mod 2=0 then writeln('четная') elsewriteln('нечетная');end;beginwriteln('введите целое число');readln(a);sumdig(a);end.