Написать программу определения суммы цифр числа и их количества, используя оператор цикла с постусловием. программа паскаль

Program gt; var n,q,s,k: integer; begin read(n); s: =0; k: =0; while n> 0 do begin q: =n mod 10; n: =n div 10; s: =s+q; k: =k+1; end; writeln(s,' ',k); end.

Input "n="; n dim a(n) as integer restore for i = 1 to n     read a(i) next i for i = 1 to n - 1     mi = a(i): u = i     for j = i to n         if a(j) < mi then             mi = a(j): u = j         end if     next j     r = a(i): a(i) = mi: a(u) = r next ifor i = 1 to n     print a(i); next i end data 12,-3,34,2,76,0,-45,23,12,0,23,6

Использован алгоритм 115б "генератор перестановок", опубликованный в книге м.и.агеев, в.п.алик, ю.и.марков. библиотека алгоритмов 101б - 150б. москва, "советское радио", 1978 и переведенный на паскаль с языка алгол-60. const   n=7; var   p,d: array[2..n] of integer;   a: array[1..n] of string: =('426','62','84','4','2','8','24');   prim115: boolean; procedure perm(n: integer); var   t: string;   k,q: integer;   label index,iter,trans; begin   if prim115 then begin       prim115: =false;       for k: =2 to n do begin p[k]: =0; d[k]: =1 end       end;   k: =0; index:   q: =p[n]+d[n]; p[n]: =q;   if q=n then begin d[n]: =-1; goto iter end;   if q< > 0 then goto trans;   d[n]: =1; k: =k+1; iter:   if n> 2 then begin n: =n-1; goto index end;   q: =1; prim115: =true; trans:   q: =q+k; t: =a[q]; a[q]: =a[q+1]; a[q+1]: =t end; var   s,maxs: string;   i,m: integer;   pal: boolean; begin   prim115: =true; maxs: ='';   repeat       s: ='';       for i: =1 to n do s: =s+a[i];       m: =length(s); pal: =true;       for i: =1 to m div 2 do           if s[i]< > s[m-i+1] then begin pal: =false; break end;       if pal then           if maxs< s then maxs: =s;       perm(n);   until prim115;   writeln(maxs) end. результат выполнения программы: 842624426248