Дано натуральное четное число n.получите s=2+4+6+..+n подумайте,с какого цикла - с условием или for,удобнее решать эту .

Program chisl;var s,n,a,m:integer;
begin
a:=2;
read(n);
while a<=n do
begin
s:=s+a;
a:=a+2;
end;
write(s);
end.