Pascal

[HukcoH]

Ребят напишите значение всех действий по строчно ( в скобках)! Вообще не понимаю паскаль этот а сдавать надо както)

uses crt;
var n,i,j: byte;
max,maxi,min,mini: integer;
a: array[1..100] of integer;
swap, sum: integer;
mult: longint;

Begin
clrscr;
write('n = ');
readln(n);
for i:=1 to n do
Begin
write('a[',i,'] = ');
readln(a[i]);
End;
sum:=0;
for i:=1 to n do
if a[i] > 0 then
sum:=sum+a[i];
mult:=1;
min:=abs(a[1]);
max:=abs(a[1]);
for i:=1 to n do
if abs(a[i]) >= max then
Begin
max:=abs(a[i]);
maxi:=i;
End
else if abs(a[i]) <= min then
Begin
min:=abs(a[i]);
mini:=i;
End;
if mini <= maxi then
for i:=mini+1 to maxi-1 do
mult:=mult * a[i]
else
for i:=maxi+1 to mini - 1 do
mult:=mult * a[i];

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then
Begin
swap:=a[i];
a[i]:=a[j];
a[j]:=swap;
End;
writeln('Sum = ',sum);
writeln('Mult = ',mult);
for i:=1 to n do
write(a[i],' ');
readln;
End.