Помогите плиз написать программу в паскале
Найти сумму чётных натуральных чисел в промежутке от n1 до n2.
Pascal ABC.

Исправил описку в комментарии PascalABC.Net

Ок) Спасибо большое)

Пожалуйста

1. "Школьное" решение// PascalABC.Net 3.0, сборка 1064var  i,n1,n2:integer;  s:longint;begin  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);  s:=0;  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;  while i<=n2 do begin s:=s+i; i:=i+2 end;  Writeln('Сумма четных чисел в интервале равна ',s)end.Тестовое решение:Введите интервал для вычисления суммы: 7 14Сумма четных чисел в интервале равна 442. Современное решение// PascalABC.Net 3.0, сборка 1064var  n1,n2:integer;begin  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);  if Odd(n1) then Inc(n1);  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);end.