Напишите, пожалуйста, подробную задачу по информатике в Паскале. Содержание: В…

program lol; vara10: array[1… 20] of integer; i: integer; beginrandomize; for i: =1 to 20 dobegina10[i]: =random (50) -39; writeln ('Element #',i,': ',a10[i]); end; writeln; for i: =1 to 20 dobeginif 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.