Синформатикой! нужно написать следующую программу: найдите сумму всех четных чисел от 1 до 200

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел 2+4+6++198+200. 1. самый короткий вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   writeln(range(2,200,2).sum) end. результат: 10100 2. более длинный и более "школьный" вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var s: =0;   var i: =2;   while i< =200 do begin       s: =s+i;       i: =i+2       end;   writeln(s) end. 3. совсем "тупой школьный" вариант (решение "в лоб") // pascalabc.net 3.1, сборка 1219 от 16.04.2016 var   i,s: integer; begin   s: =0;   for i: =1 to 200 do       if i mod 2 =0 then s: =s+i;   writeln(s) end. 4. улучшенный "школьный" вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 var   i,s: integer; begin   s: =0;   for i: =1 to 100 do s: =s+2*i;   writeln(s) end.

Код программы var       k, i: integer; begin       k : = 4;       for i : = 1 to 3 do               k : = i + 2 * k;       writeln(k); end. вывод 43