Program probel123;
uses crt;
Var s,c,pus: string; k,n,x,b,sum:integer;
begin
clrscr;
   sum:=0;
   pus:='';

   read (s);

   for n:=1 to length(s) do
       begin
          if (ord(s[n])>=48) and (ord(s[n])<=58) then
             begin
                pus:=pus+s[n];
             end;

   for k:=1 to 3 do
       begin
          c:=copy(pus,k,1);
          val(c,x,b);
          sum:=sum+x;
       end
   write(sum);
   readkey
end.

if (ord(s[n])>=48) and (ord(s[n])<58) then

program LABA_10;
uses crt;
const n=12;
var
mas,masB,masP:array [1..n] of integer; i,j:integer;  e:boolean;
begin
    clrscr;
    writeln ('vvod massiva: ');
    for i:=1 to n do
        begin
          read (mas[i]);
        end;
     writeln;
    for i:=1 to n do
        begin
          if (i=3) or (i=6) or (i=9) then writeln (mas[i]:3) else write (mas[i]:3);
        end;
        writeln;
    readkey
end.

program LABA_10;
uses crt;
const n=12;
var
mas,masB,masP:array [1..n] of integer; i,j:integer;  e:boolean;
begin
    clrscr;
    writeln ('vvod massiva: ');
    for i:=1 to n do
        begin
          read (mas[i]);
        end;
     writeln;
    for i:=1 to n do
        begin
          if (i=3) or (i=6) or (i=9) then writeln (mas[i]:3) else write (mas[i]:3);
        end;
        writeln;

    for i:=1 to n do
       masP[i]:=mas[i];

    for i:=1 to n do
      begin
         e:=odd(masp[i]);
         if e=false
           then
             begin
               for j:=1 to n do
                 masB[j]:=masP[i];
             end;
       end;
     for i:=1 to n do
        begin
          if (i=3) or (i=6) or (i=9) then writeln (masB[i]:3) else write (masB[i]:3);
        end;




    readkey
end.

// вывод по 3 элемента
for i:=1 to n do
begin
  write(A[i],' ');
  if (i mod 3) = 0 then writeln;
end;

// формирование массива B
k := 1;
for i:= 1 to n do
  if (A[i] mod 2) = 0 then // копируем четные элементы в начало массива
  begin
     B[k] := A[i];
     inc(k);
  end;

for i:= 1 to n do
  if (A[i] mod 2) <> 0 then // остальную часть заполняем нечетными
  begin
     B[k] := A[i];
     inc(k);
  end;