Var
   A,Sc,Sn:integer;
Begin
Sc:=0;
Sn:=0;
Write('Введите четырёхзначное число: ');ReadLn(A);
//Если чётных(0,2,4,6,8) и нечётных(1,3,5,7,9) чисел:
if (A div 1000) mod 2 = 0 then Sc:=Sc+A div 1000
else Sn:=Sn+A div 1000;

if ((A div 100) mod 10) mod 2 = 0 then Sc:=Sc+(A div 100) mod 10
else Sn:=Sn+(A div 100) mod 10;

if ((A div 10) mod 10) mod 2 = 0 then Sc:=Sc+(A div 10) mod 10
else Sn:=Sn+(A div 10) mod 10;

if (A mod 10) mod 2 = 0 then Sc:=Sc+(A mod 10)
else Sn:=Sn+(A mod 10);

if Scelse WriteLn(Sc,' ',Sn);

//Если чисел, стоящих на чётных и нечётных позициях:
Sc:=(A mod 10)+(A div 100) mod 10;
Sn:=(A div 10) mod 10 + A div 1000;

if Scelse WriteLn(Sc,' ',Sn);
End.