Ввести массивы Z [0..3] и A [0..3] . Для каждого Z[i] и A[i] вычислить функцию F=(Zi+Ai)^(3/2) . Найти сумму дробных положительных элементов введенных массивов.

program qwr; uses crt; var f : real; i : byte; z,a : array [0..3] of real; begin   for i:=1 to 3 do   begin   write('z[ ',i,']= ');   readln(z[i]);   end;   for i:=1 to 3 do   begin   write('a[ ',i,']= ');    readln(a[i]);   end;   writeln(' ______________________');   writeln('   Z[i] |  A[i] |  f   ');   for i:=1 to 3 do   begin    f:=exp(ln(z[i]+a[i])*(3/2));   writeln('   ',z[i]:(3),'  |  ',a[i]:(3),'  | ',f:(3):(2));   end;   writeln(' _______|_______|______');   end.