В соревновании по футболу участвует 6 команд a b c d e f g через несколько недель команды уже сыграли друг с другом постройте граф по заданому условию

Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write('Введите число: ');
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln('Произведение чисел из интервала (', n, '; 100): ');
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

Объяснение:

// Возведение в степень

program stepen;

var

p,i,n, a:integer;

begin

write('введите число и степень');

readln(a,n);

p:=1;

for i:=1 to n do p:=p*a;

writeln('Число ',a, ' в степени ',n,' = ',p);

readln;

end.

//Сумма нечетных цифр числа

program project1;

var

a, b, s : integer;

begin

s := 0;

write('введите число: ');

readln(a);

while a <> 0 do

begin

b := a mod 10;

if b mod 2 <> 0 then s := s + b;

a := a div 10

end;

writeln('сумма нечетных цифр: ', s);

readln;

end.  

//Сумма четных чисел до n

program summach;

var

S,n,i:integer;

begin

Write('Введите n=');

readln(n);

if n mod 2<>0 then n:=n-1;

n:=n div 2;

s:=0;

for i:=1 to n do

s:=s+2*i;

writeln('s=',s);

readln;

end.    

//

//   сумма четных с циклом repeat

program summach1;

Write('Введите n=');

readln(n);

if n mod 2<>0 then n:=n-1;

s:=0;i:=1;

repeat

s:=s+2*i;

i:=i+1;

until 2*i>n ;

writeln('n=',n);

writeln('s=',s);

readln;