program summa;
var
s, i: integer;
begin
for i := 2 to 20 do
if i mod 2 = 0 then
S := S + i;
writeln('Сумма = ',s);
end.
program summa;
var
s, i: integer;
begin
for i := 2 to 20 do
if i mod 2 = 0 then
S := S + i;
writeln('Сумма = ',s);
end.