Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100

var a, s: longint; // где a — определённое число из диапазона от 1 до 100, s — сумма всех чётных чисел указанного диапазона.

begin cls; s := 0; for a := 1 to 100 do if a mod 2 = 0 then s := s + a; writeln(\'Сумма всех чётных чисел в диапазоне от 1 до 100 равна \', s, \'.\');end.