Урок 25-27 октября

PROGRAM nnn ;
var s,i: integer;
begin
s:=0;
for i:=1 to 20 do
if i mod 2 = 0 then
s:=s+i;
writeln('сумма =',s);
end.