Решите плиз
В массиве а1, а2, а3 … a10 вместо отрицательных элементов запи-сать их модули и вывести на экран полученный массив. Найти сумму всех элементов преобразованного массива.

program f1;var a:array [1..10] of integer;i:integer;beginfor i:=1 to 10 do beginreadln(a[i]);if a[i]<0 then a[i]:=abs(a[i]);end;for i:=1 to 10 do s:=s+a[i];writeln(s);for i:=1 to 10 do writeln(a[i]);end.