Что будет результатом работы программы?
Использовать Чертёжник
Алг узор
Нач
поднять перо
сместиться в точку (1,1)
опустить перо
сместиться в точку (5,4)
сместиться в точку (2,4)
сместиться в точку (6,1)
сместиться в точку(1,1)
кон​

Решение с использование длинной арифметики.
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

Эти запросы означают вот что.
Сайтов, на которых есть слово торты, или слово пироги, или оба слова - 12000
Сайтов, на которых есть и слово торты, и слово пироги одновременно - 6500
Сайтов, на которых есть слово пироги (торты тоже могут быть) - 7700
Значит, сайтов, на которых есть ТОЛЬКО пироги 7700 - 6500 = 1200
Сайтов, на которых есть торты (пироги тоже могут быть) 12000 - 1200 = 10800.
Именно столько будет выдано по запросу "торты".
(Из них сайтов, на которых ТОЛЬКО торты, но нет пирогов 10800 - 6500 = 4300.
Но это уже сверх твоей задачи)