Спо информатике (см. прикреплённый файл)

var n,n1,n2,n3: integer; function srostit(a,b,c: integer): integer; begin      srostit : =       a*100 + b*10 + c; end; begin      read(n);       n1: =n div 100;       n2: =n mod 100 div 10;       n3: =n mod 10;       writeln(srostit(n1,n2,n3));       writeln(srostit(n1,n3,n2));       writeln(srostit(n2,n1,n3));       writeln(srostit(n2,n3,n1));       writeln(srostit(n3,n1,n2));       writeln(srostit(n3,n2,n1)); end.

type ar10 = array[1..10] of integer; var a, b,c,d: ar10; i: integer; procedure show(a: ar10); begin      for i : = 1 to 10 do             write(a[i], ' '); end; begin      randomize;       for i : = 1 to 10 do begin             a[i] : = random(1000);             b[i] : = random(1000);             c[i] : = a[i] + b[i];             d[i] : = min(a[i] ,b[i]);       end;       show(a);       show(b);       show(c);       show(d); end.