Когда мы переписываемся, мыКогда мы переписываемся…?

Много лишнего (наверно), только с олимпиады! Как есть.uses crt; var b,n,i,k,c,o,x1: integer; f,s,ch: string; r,g: text; A: array [0… 9] of integer; beginassign (r,'C: \Bin.txt'); reset (r); readln (r,f); close (r); for i: =1 to length (f) dobegins: =copy (f,1,1); if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9') thendelete (f,1,1); if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9') thenbeginx1: =pos (s,ch); if x1<>0 thenbegindelete (ch,x1,1); ch: =ch+s; endelsech: =ch+s; end; end; val (ch,n,o); N: =Abs (N); for i: =0 to 9 do A[ i ]: =0; while N > 0 do begin Inc (A[ N mod 10]); N: =N div 10; end; assign (g,'C: \Bout.txt'); rewrite (g); for i: =0 to 9 do while A[ i ] > 0 do begin Write (g,i); Dec (A[ i ]); end; close (g); end.