<span>RECTANGLE 1,1,200,200,Red,Green - 31 символ
Ответ: 31 байт</span>
Программа для Pascal.
PROGRAM Z;
USES CRT;
VAR
A,B:INTEGER;
M:ARRAY[1..10] OF INTEGER;
BEGIN
CLRSCR;
WRITELN('VVEDITE ELEMENTY');
FOR A:=1 TO 10 DO READLN(M[A]);
WRITELN('CHETNIE ELEMNTY : ');
FOR A:=1 TO 10 DO IF A MOD 2 = 0 THEN WRITELN (M[A]);
READKEY
<span>END.</span>
Б может быть только в конце, т.к. там не точек
Число в адресе не может быть больше 255, поэтому сочетания АГ, ГВ и АВ недопустимы. Ответ: ВГАБ.
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.