Відповідь:

Это код в С++, я не смог перевести его полностью на Pascal

#include <iostream>

using namespace std;

int main()

{

   int n1;

   int n2;

   int sum = 0;

   cin>>n1;

   cin>>n2;

   for(int i = n1; i<=n2;i++){

       if(i%2==0){

           sum += i;

       }

   }

   cout<<sum;

   return 0;

}

Пояснення: вот код для Pascal, но он не полностью работает (если понимаешь, то посмотри. Проблема с условием)

program Hello;

var

   n1:integer;

   n2:integer;

   sum:integer;

   i:integer;

begin

sum:=0;

writeln('Enter n1');

read(n1);

writeln('Enter n2');

read(n2);

   for i:= n1 to n2 do

                       begin

                           if(i%2=0)

                           then sum:=sum+i

                       end;

writeln(sum);

end.