Var n,a,i,k:integer;
s:string;
begin
s:='No'; k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if a<5 then k:=k+1;
if a=10 then s:='Yes';
end;
writeln(k);
writeln(s);
end.
Они будут идти в порядке, перечисленном в пункте 1 - <span>"Побег", "Остров", "Ночной дозор", "Extreme", "9 рота"</span>
11011 это 27 в десятичной, поэтому 33 больше 11011
Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.