Пожалуста составьте програмный код для решения задачи

[Dina2360]

Найти Сумму целых положительных чиселб кратных 2 и меньше 100

Пожалуста напишите код целиком

[VIK_aka_TOR]

var
i, sum: integer;
begin
sum:=0;
    for i:=1 to 49 do
     sum:=sum+i*2;
    writeln('Сумма равна ', sum);
end.