Составишь программу на языке посталь а) вычислить сумму модулей элементов массива x(15). б) выселить произведение модулей элементов массива b(15)

А)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s+abs(ar[i]);
 end;
 write(s);
 end.
б)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 s:=1;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s*abs(ar[i]);
 end;
 write(s);
 end.