Найдите сумму всех чётных натуральных чисел от 24 до 98 включительно

Program dd; 
var i,sum:integer; 
begin 
sum:=0; 
for i:=24 to 98 do 
begin 
if (i mod 2)=0 
then sum:=sum+i; 
end; 
writeln(sum); 
end. 
// 
// 
// 
// 
//на выходе: 2318

Если ответ по предмету Алгебра отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.