Помогите с задачей по информатике

var
s: real;
i, k: integer;
b: array[1..20] of real;
z: array[1..10] of real;
sum, prod: real;
begin
writeln('Введите количество элементов массива b (макс. 20):');
readln(i);
if (i < 1) or (i > 20) then
begin
writeln('Ошибка: количество элементов должно быть от 1 до 20.');
exit;
end;

writeln('Введите количество элементов массива z (макс. 10):');
readln(k);
if (k < 1) or (k > 10) then
begin
writeln('Ошибка: количество элементов должно быть от 1 до 10.');
exit;
end;

writeln('Введите элементы массива b:');
for i := 1 to i do
begin
readln(b[i]);
end;

writeln('Введите элементы массива z:');
for k := 1 to k do
begin
readln(z[k]);
end;

sum := 0;
for i := 1 to i do
begin
sum := sum + cos(b[i]) * cos(b[i]);
end;

prod := 1;
for k := 1 to k do
begin
prod := prod * z[k];
end;

s := 2 * (sum + exp(prod));
writeln('s = ', s:0:3);
end.
держи брат