Составьте программу, которая находит сумму всех четных чисел до 300.

var i, sum: integer;beginsum:=0;for i:=1 to 300 doif i mod 2=0 then sum:= sum+i;writeln(sum);readlnend. Выбирайте лучший ;)