78
построить блок-схему

выполнить 2.4

var a: array[0..10] of integer;

i,x: integer;

begin

  read(x);

  randomize;

  for i : = 1 to 10 do begin

      a[i]: =random(4);

      if a[i]=x then writeln('a[',i,']');

  end;

end.

853

350

323

620

602

152

350

323

503

530

233

251

701

710

413

440

a- к красному

b- к зеленому

с- к синему

393сf - 8с.с.

32333301033 - 4с.с.

вроде правильно..