Вычислите сумму n натуральных четных чисел, начиная с 2.

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12