как в Excel рассчитать количество рабочих дней за месяц

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный 

//Pascal ABC.NET v3.0 сборка 1111

Var
 a,b,c,d:integer;
begin
 read(a,b);
 c:=a;
 d:=b;
 while (a<>0) and (b<>0) do
  if a>b then a:=a mod b else b:=b mod a;
 writeln(c div (a+b));
 writeln('---');
 writeln(d div (a+b));
end.

//А теперь программа для тестов, выведет 1000 результатов в файл

Var
 a,b,c,d,i:integer;
 f:text;
begin
 assign(f,'text.txt');
  rewrite(f);
  for i:=1 to 1000 do
   begin;
     a:=random(1,100);
  b:=random(1,100);
  c:=a;
  d:=b;
  while (a<>0) and (b<>0) do
  if a>b then a:=a mod b else b:=b mod a;
 writeln(f,c,' ',c div (a+b));
 writeln(f,'=':length(inttostr(c)));
 writeln(f,d,' ',d div (a+b));
 writeln(f);
   end;
 close(f);
end.