Составьте программу вычисления суммы четных чисел в диапазоне от 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.