Question

Нужно составить описание к программе
program pr1;
const n=5;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
randomize;
s1:=0;
s2:=0;
for i:=1 to n do begin
a[i]:=random(20)-8;
writeln(a[i]:4,' Порядковый номер ',i);
end;
writeln;
for i:=1 to n do begin
if i mod 2<>0 then s1:=s1+sqr(a[i])*a[i];
if i mod 2=0 then s2:=s2+sqr(a[i]);
end;
writeln('Сумма 1=',s1);
writeln('Сумма 2=',s2);
end.