составьте программу для вычисления суммы всех четных чисел от 6 до 36 паскаль

var i, s: integer; 

begin 

s:=0; 

for i:=6 to 36 do 

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

end;