Вычислить значение выражения

uses crt;
const nmax=10;
var b:array[1..nmax] of real;
    c:array[1..nmax,1..nmax] of real;
    m,n,i,k:integer;
    s,s1:real;
begin
randomize;
repeat
write('n=[1..',nmax,'] n=');
read(n);
until n in [1..nmax];
repeat
write('m=[1..',nmax,'] m=');
read(m);
until m in [1..nmax];
writeln('Матрица C');
for i:=1 to n do
 begin
  for k:=1 to m do
   begin
    c[i,k]:=10*random;
    write(c[i,k]:5:2);
   end;
  writeln;
 end;
writeln('Вектор B');
for k:=1 to m do
 begin
  b[k]:=10*random;
  write(b[k]:5:2);
 end;
writeln;
s:=0;
for i:=1 to n do
for k:=1 to m do
s:=s+sqr(cos(b[k])+sqr(sqr(sin(c[i,k]))));
s:=sqrt(s);
write('S=',s:0:2);
end.