Ответ:

if i mod 2 = 0 then s:=s+i;

Объяснение:

var i,s: integer;

begin

s:=0;

for i:=1 to 15 do

if i mod 2 = 0 then s:=s+i;

writeln (s);

end.

поставим условие на вычисление суммы