[Nora]

Код:

program conshelp;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type KU= set of byte;
var

  B:KU;
  mas:array[10..99] of byte;
     procedure FILL1;
      var i:byte;
      begin
        for i:=10 to 99 do
         mas[i]:=i;
        for i:=1 to 180 do
         B:=B+[i];
      end;
  procedure fill;
        var i,countI:byte;
       begin
       countI:=0;
         for i:=1 to 180 do
            if (mas[i] in B) then
            begin
          countI:=countI+1;
          writeln (countI);
           end;
       end;
begin
  Fill1;
  Fill;
  readln;
  readln;
end.