Решить на ветвление паскаль по !

Var a: array[1..20]of integer;     b: array[1..20]of real;     i,s: integer; begin   write('massiv a: ');   for i: =1 to 20 do   begin     read(a[i]);     write(a[i],' ');   end;   writeln;   write('massiv b: ');   for i: =1 to 20 do   begin     b[i]: =sqrt(a[i]);     write(b[i],' ');   end;   writeln;   for i: =11 to 15 do   begin     s: =s+a[i];   end;   write('summa elementov s 11 do 15: ',s); end.

Program asd; const n=4; var c: array[1..n,1..n] of integer; i,j,s: integer; begin   for i: =1 to n do    begin     for j: =1 to n do      begin      c[i,j]: =1+random(9);       write(c[i,j],' ');       end;       writeln;   end;     writeln;           for j: =1 to n do      begin    s: =0;       for i: =1 to n do        begin      s: =s+c[i,j];                 end;       writeln('столбец[',j,'] = ',s);     end; end.