Напишите, , подробную по информатике в паскале. содержание: в равномерном массиве а10 состоящих из целых чисел, если элемент положителен - увеличьте в 2раза, если отрицателен - заменить на 0. заранее ! пишите подробную для программы паскаль. не забудьте пунктуацию.

program lol;
var
a10:array[1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a10[i]:=random(50)-39;
writeln('Element #',i,': ',a10[i]);
end;
writeln;
for i:=1 to 20 do
begin
if a10[i] > 0 then a10[i]:=a10[i]*2;
if a10[i] < 0 then a10[i]:=0;
writeln('Element #',i,': ',a10[i]);
end;
readln;
end.