Задача в Паскале 3/Есть решение, нужно объяснение

Привет. Помогите пожалуйста с объяснением.. . перепод будет по полной спрашивать каждую строчку.


Решение
var
n:integer;
y:array[1..200] of real;
i:integer;
z:array[1..200] of real;
max,min,zz:real;
z2:array[1..200] of real;

Begin

writeln;writeln;
writeln('Vvedite n');
readln(n);

for i:=1 to n do
begin
writeln('Vvedite y[',i,']');
readln(y);
end;

{MAX}
for i:=1 to n do
begin
If abs(y)<=2 then z:=y else z:=0.5;
writeln('z[',i,']',z:5:2);
end;
max:=abs(z[1]);
for i:=2 to n do
begin
If abs(z)>max then max:=abs(z);
end;
writeln('MAX=',max:4:1);

{MIN}
for i:=1 to n do
begin
If abs(y)>1 then z:=y else z:=2;
writeln('z[',i,']',z:5:2);
end;
min:=abs(z[1]);
for i:=2 to n do
begin
If abs(z));
end;
writeln('MIN=',min:4:1);

{Z}
for i:=1 to n do
begin
If (0) and (y<10) then z:=y else z:=1;
end;
for i:=1 to n do
writeln('z[',i,']',z:4:2);

{SQRT}
for i:=1 to n do
begin
If (0) and (y<15) then z:=y else z:=2.7;
end;

zz:=0;
for i:=1 to n do
begin
zz:=zz+sqr(sqrt(z)-z);
end;

writeln('Summa=',zz:4:2);

{SQR}
for i:=1 to n do
begin
If (y<1) then z:=y else y:=1/y;
z2:=z*z;
writeln('z2=',z2:4:2);
end;

End.

Program lab_6_2;

var
n:integer;
y:array[1..200] of real;
i:integer;
z:array[1..200] of real;
max,min,zz:real;
z2:array[1..200] of real;

Begin

writeln;writeln;
writeln('Vvedite n');
readln(n);

for i:=1 to n do
begin
writeln('Vvedite y[',i,']');
readln(y);
end;

{MAX}
for i:=1 to n do
begin
If abs(y)<=2 then z:=y else z:=0.5;
writeln('z[',i,']',z:5:2);
end;
max:=abs(z[1]);
for i:=2 to n do
begin
If abs(z)>max then max:=abs(z);
end;
writeln('MAX=',max:4:1);

{MIN}
for i:=1 to n do
begin
If abs(y)>1 then z:=y else z:=2;
writeln('z[',i,']',z:5:2);
end;
min:=abs(z[1]);
for i:=2 to n do
begin
If abs(z));
end;
writeln('MIN=',min:4:1);

{Z}
for i:=1 to n do
begin
If (0) and (y<10) then z:=y else z:=1;
end;
for i:=1 to n do
writeln('z[',i,']',z:4:2);

{SQRT}
for i:=1 to n do
begin
If (0) and (y<15) then z:=y else z:=2.7;
end;

zz:=0;
for i:=1 to n do
begin
zz:=zz+sqr(sqrt(z)-z);
end;

writeln('Summa=',zz:4:2);

{SQR}
for i:=1 to n do
begin
If (y<1) then z:=y else y:=1/y;
z2:=z*z;
writeln('z2=',z2:4:2);
end;

End.