Вычислить значение функции
z=b*ln(abs(cos(пі*q/b)*cos(пі*q/b)))
где b=2; 2.4; 2.8; 3.2; 3.6; 4.0;
q=0.1; 0.3; 1.1; 1.25; 1.9; 2.8.- Pascal(Паскаль)

uses crt;
 
var
i : integer;
b : array[1..6] of real;
q  : array[1..6] of real;
z: real;
begin
b[1]:=2;
b[2] :=2.4;
b[3]:=2.8;
b[4] :=3.2;
b[5]:=3.6;
b[6]:=4.0;
q[1]:=0.1;
q[2]:=0.3;
q[2]:=1.1;
q[3]:=1.25;
q[4]:=1.9;
q[5]:=2.8;
 
for i := 1 to 6 do
begin
z := b[i]*ln(abs(cos(pi*q[i]/b[i])*cos(pi*q[i]/b[i])));
write(z:6:2,' ');
end;
readln;
end.