Var a,s1,s2,i:integer; begin a:=random(4901)+100; writeln('a = ',a); s1:=0; s2:=0; for i:=1 to 4 do begin if a mod 2 = 0 then s1:=s1+a mod 10 else s2:=s2+a mod 10; a:=a div 10; end; writeln('Сумма чётных цифр = ',s1,' Сумма нечётных цифр = ',s2); end.