Определите значение переменной s после выполнения следующего фрагмента программы:

a:=23;
s:=0;
while a>0 do
begin
s := s + a mod 10;
a := a div 10;
end;

Var a,b,c,d,e,x: integer; begin     readln(a,b,c,d,e);     if {1} a> b then begin x: =a; a: =b; b: =x;   end;     if {2} c> d then begin x: =c; c: =d; d: =x;   end;     if {3} a> c then begin x: =a; a: =c; c: =x; x: =b; b: =d; d: =x; end;     if {4} c> e then         if {5} b> c then             if {6} b> d then                 if {7} a> e then begin x: =e; e: =b; b: =a; a: =x; end                     else begin x: =e; e: =b; b: =x; end                 else                 if {7} a> e then begin x: =e; e: =d; d: =b; b: =a; a: =x; end                     else begin x: =e; e: =d; d: =b; b: =x; end             else             if {6} a> e then begin x: =e; e: =d; d: =c; c: =b; b: =a; a: =x;   end                 else                 if {7} b> e then begin x: =e; e: =d; d: =c; c: =b; b: =x;   end                     else begin x: =e; e: =d; d: =c; c: =x;   end         else         if {5} d> e then             if {6} b> e then                 if {7} b> d then begin x: =e; e: =b; b: =c; c: =x;   end                     else begin x: =e; e: =d; d: =b; b: =c; c: =x;   end                 else                 if {7} b> c then begin x: =b; b: =c; c: =x; x: =e; e: =d; d: =x;   end                     else begin x: =e; e: =d; d: =x;   end             else             if {6} b> d then                 if {7} b> e then begin x: =b; b: =c; c: =d; d: =e; e: =x;   end                     else begin x: =b; b: =c; c: =d; d: =x;   end                 else                 if {7} b> c then begin x: =b; b: =c; c: =x;   end;     writeln;     writeln(a,' ',b,' ',c,' ',d,' ',e); end .