Var a,b,c,d:integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a mod 2=0) then d:=a;
if (b mod 2=0) then d:=d+b;
if (c mod 2=0) then d:=d+c;
if d<>0 then writeln('Сумма чётных чисел равняется ',d)
else writeln('Нет чётных чисел');
<span>end.</span>
1 строка 3,5,4,2,1,1,2
2 строка 1,2,4,6,7,5,4,3,2,5,6,3,1
3строка 5, 2, 1,7,8,5,6,3,4,10,9,6
Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.
Ну исходя из моего понимания всего сущего, это операционная система.
read(n);
if (n>99) and (n<1000) then writeln('Yes');