ideals.pas

program HelloWorld;

const n = 17;

var a: array[1..n] of integer;
var i, s: integer;

begin
    s:=0;
    randomize;
    writeln('Start array:');
    for i:=1 to n do
    begin 
      a[i] := random(10);
      if a[i] mod 2 <> 0 then s:= s + a[i];
      write(a[i], ' ');
    end;  
    writeln;
    writeln('Summ: ', s);
    writeln('Replace: ');
    for i:=1 to n do
    begin
      if a[i] mod 3 = 0 then a[i] := s;
      write(a[i], ' ');
    end;
end.

pad.pas

//fpc 3.0.0

program HelloWorld;

const n = 17;

var a: array[1..n] of integer;
var i, s: integer;

begin

    randomize;
    for i:=1 to n do a[i] := random(10);
    writeln('Start array:');
    for i:= 1 to n do write(a[i], ' ');
    writeln;
    s:= 0;
    for i:=1 to n do
      if a[i] mod 2 = 0 then s:= s+ a[i];
      
      
    writeln('sum:', s);
    
    for i:=1 to n do
      if a[i] mod 3 = 0 then a[i] := s;
      
    for i:= 1 to n do write(a[i], ' ');
end.