Ввести массивы Z[0.3] и A[0.3]. Для каждого Z[i] и A[i] вычислить функцию - PascalABC.NET

Формулировка задачи:

Осуществить ввод данных в массив. Осуществить ввод числа. Значения функции выводить в виде таблицы, состоящей из двух колонок (одна – для значений элементов массива, другая – для значений функции). Вывести найденную сумму Ввести массивы Z[0..3] и A[0..3]. Для каждого Z[i] и A[i] вычислить функцию

Решение задачи: «Ввести массивы Z[0.3] и A[0.3]. Для каждого Z[i] и A[i] вычислить функцию»

textual
                            Листинг программы 
                        

                            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(' <br>');
  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(' <br>|<br>|<br>');
  end.
                        