Дана числовая последовательность чисел а1, признак конца ввода чисел является число 333. составить программу определяющую сумму всех чётных чисел в последовательности. напишите программу на ! ,

Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.

Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;      
      s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);  
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.

1) Задача:

#include <iostream>

using namespace std;

int main()

{   cout <<"  "<<"_"<<"      "<<"_"<<"      " <<"_"<<  endl;

   cout <<">(.)__"<<" "<<"<(.)__"<< " "<< "=(.)__" << endl;

   cout <<" "<<"(___/"<<"  "<<"(___/"<<"  "<< "(___/"<< endl;

   return 0;

}

2) Задача:

#include <iostream>

using namespace std;

int main()

{

   cout << 1 * 2 * 3 * 4 * 5 * 6 * 7 * 8 * 9 * 10 << endl;

   return 0;

}

Объяснение:

Чел сверху написал нормальное решение, но сириус (если тебе нужно для него решение) не примет его так как есть запрещенные элементы. Самое глупое но работающее решение