Скорее всего, 1 бит.
Если достали красный - да, 1
Достали другой цвет - нет, 0
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.