Срочно!Помогите пожалуйста решить 2 задачи.
3 и 5.

5) program _5;
var a:array[1..100] of integer; i:byte;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to 10 do begin
if a[i]<0 then a[i]:=abs(a[i]);
write(a[i], ', '); end; end.