Сумма четных чисел. Паскаль

Question

На уроке информатике, учитель дал задание написать программу для вычисления суммы четных чисел от 2 до 100. Я написал программу двумя способами. через массив и с подусловием. Однако, он сказал что тот кто решит задачу с помощью цикла и сможет задать оператора через арифметическую функцию(если ошибаюсь то исправьте), тому поставит 5 в четверть. Очень нужна оценка)
Во-первых я учусь не в школе для "детей с задержками умственного развития". 
А во-вторых я в 6 классе

morozov_maksim_6 · Accepted Answer

Program Hochy5; 
var i, n, sum: integer; 
begin 
for i:= 2 to 100 do 
begin 
n:=i mod 2; 
if n=0 
then 
begin 
sum:=sum+i; 
end; 
end; 
writeln('сумма чётных чисел в промежутке от 2 до 100 равна - ',sum); 
end.

user_203042805 · Answer

Krab Bark, откуда ты взял числа 1 и 50?

snke_74 · Answer

var sum, i integer; 
sum:=0; 
for i:=2 to 100 i:=i+2 
do 
sum:=sum+i; 
writeln ("сумма равна", sum); 
другой вариант через остаток от деления и условие 
var sum, i integer; 
sum:=0; 
for i:=2 to 100 i:=i+1 do 
if (i mod 2)=0 then sum:=sum+i; 
writeln ("сумма равна", sum);