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

Информатика 8 класс

Program n1;

var a: longint;

procedure sumdig (var x: longint) ;

var s:longint;

begin

s:=0;

while (x0) 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 ('четная') else

writeln ('нечетная') ;

end;

begin

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

readln (a) ;

sumdig (a) ;

end.