Merge branch 'gdoi'

[srcbox.git] / rqnoj / rqnoj143.pas

var
a:array [1..20000] of char;
k,i,n:longint;

begin
   while not eoln do begin inc(k); read(a[k]); end;
   for i:=k downto 1 do begin write(a[i]); inc(n,ord(a[i])-ord('0')); end;
   writeln;
   writeln(n);
end.