В олимпиаде по информатике участвовали ученики 7а класса, 7б класса , 7в класса, 7г класса. Из них 8 учеников 7а, 6 – 7б, 5 – 7в. Сообщение о том, что победил ученик 7б , несет 2 бита информации. Определить количество учеников 7г, участвовавших в олимпиаде.

//PascalABC.Net 3.0, сборка 1064
var
  n:integer;
  i,d:byte;
  b:array[0..9] of boolean;
  fail:boolean;
begin
  Write('Введите четырехзначное натуральное число: ');
  Read(n);
  for i:=0 to 9 do b[i]:=False;
  while (n>0) and (not fail) do begin
    d:=n mod 10;
    if b[d] then fail:=True else b[d]:=True;
    n:=n div 10
  end;
  if fail then Writeln('В числе есть одинаковые цифры')
  else Writeln('В числе нет одинаковых цифр')
end.

Тестовое решение:
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр

Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры

Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
 begin
 read(t,a);
 if a mod 100 = 0 then write(t1,a,' ');
 if a mod 11 = 0 then write(t2,a,' ');
 if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
 end;
Close(t);Close(t1);Close(t2);Close(t3);
end.