Write a program for calculating the sum of even numbers in the range from 1 to 100.

var
a, s: longint; // where a is a specific number in the range from 1 to 100, s is the sum of all even numbers in the specified range.

begin
cls;
s: = 0;
for a: = 1 to 100 do
if a mod 2 = 0 then s: = s + a;
writeln (‘The sum of all even numbers in the range from 1 to 100 is’, s, ‘.’);
end.



One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.