Программирование для чайников
Сам я чайник поэтому образовался косяк с написанием проги. Среда Паскаль.
вот пример её решения в маткаде, этот алгоритм необходимо перенести в паскаль.

здесь А-любая константа; z0-нижняя граница интервала, zf-верхняя; dz-шаг табулирования.
N- кол-во точек.
 
вот что у меня получилось, но что-то здесь не работает( ибо половину честно скопипастил)
ахтунг быдлокодинг
 
program mcad;
uses crt;
Const
     Maxn=1000;
var
x,y,A,zf,z0,dz,zk,min,max:real;
i,n,j:integer;
fx:array[1..Maxn] of real;
begin
A:=3;
writeln('Введите x' );
readln(x);
writeln('Введите y' );
readln(y);
writeln('Введите начальное значение Z' );
readln(z0);
writeln('Введите конечное значение Z' );
readln(zf);
writeln('Введите шаг (dz>= 0.01)' );
readln(dz);
n:=(zf-z0)/dz+1;
writeln('   z           f(z)' );
for i:=1 to n do
begin
z:=z0+(i-1)*dz;
if ((x+y)>=0) then
    fx:=(sqr(x+y+(sin(z))-A*(x+y));
  else
    fx:=(sqr(x+y+(sin(z))+A*(x+y));
writeln (z:5:2, '  ', fz);
end; {for i:=1 to n}
end
min:=fz[n];
   max:=fz[n];
   for i:=1 to n do
    begin
     if fz<min then min:=fz;
     if fz>max then max:=fz;
    end;
 
   writeln('Minimum: ',min:5:2);
   writeln('Maximum: ',max:5:2);
end.
прошу вашей помощи.