1. написать программу, которая выводит произведение чисел от 1 до 13 (13! )

Var
  i:integer;
  f:double;
begin
  f:=1;
  for i:=1 to 13 do f:=f*i;
  Writeln('13!=',f:0);
end.

Результат выполнения программы:
13!=6227020800

При моделировании финансовой модели существуют четыре основных этапа:

Анализ первичной информации текущего состояния компании, маркетингового анализа рынка

Прогнозные финансовые отчеты (отчет о прибылях и убытках, баланс, отчет о денежных потоках) на необходимое количество лет

Анализ факторов риска, на базе которых строятся модели с пессимистическим, оптимистическим и консервативным прогнозами

Подготовка необходимых отчетов и заключений

При разработке бизнес-плана процесс построения финансовой модели наиболее трудоемкий, требует сбора и анализа исходных данных.

Информация подбирается по блокам: продукты и услуги; отрасль; конкуренто операции, финансовое положение; стратегический план.

function colcifr(a: integer): integer;
var
  s, k: string;
  i, j: integer;
begin
  i := a;
  repeat
    str(i mod 10, k);
    i := i div 10;
    if (pos(k, s) = 0) then
    begin
      s := concat(s, k);
      inc(j);
    end;
  until (i = 0);
  colcifr := j;
end;

function sum(i: integer): integer;
var
  a, b: integer;
begin
  a := i;
  repeat
    b := b + a mod 10;
    a := a div 10;
  until (a = 0);
  sum := b;
end;

var
  i: integer;

begin
  for i := 1000 to 9999 do
    if (i mod 2 + i mod 7 + i mod 11 = 0) then
      if (colcifr(i) = 2) then
        if (sum(i) = 30) then
          writeln(i);
end.

8778