Сколько существуют трехзначных чисел, состоящих из цифр 1, 2, 3. решить с древа граф(я просто не знаю как это по другому назвать)

123 321 231 213 312  132  

Граф 123
........ 132
........213
........231
........312
........321

Program z14;  Var q, z:integer; sr, sg, x, y: real;Begin  write('Введите число Q = '); readln(q);  write('Введите число Z = '); readln(z);    writeln('Задание 2:');  if (q = z) then             begin              sr:= (q + z) / 2;              writeln('Среднее арифметическое = ', sr);             end             else              begin              sg:= sqrt(q * z);              writeln('Среднее геометрическое = ', sg);             end;               writeln('Задание 3:');  x:= -3;  while (x <= 3) do  begin    y:= 5*x*x - x + 2;    writeln('X = ', x, '  Y = ',y);    x:= x + 0.5;  end;End.

Давайте сделаем так:
Опишем 4 функции в программе. Когда надо - вытащим нужную...  ОК?

uses Crt;
var x1, x2 , dx, y: real;
    i: integer;
function f1 (x:real):real;
 begin
   f1:=2*x;
end;

function f2 (x: real):real;
 begin
   f2:=x/3+9;
 end;

function f3 (x:real):real;
begin
  f3:=x-4;
end;

function f4 (x: real):real;
begin
  f4:=x/8-6;
end;

begin
ClrScr;
Write(' x1 = '); ReadLn(x1);
Write(' x2 = '); ReadLn(x2);
Write (' dx = '); ReadLn(dx);
i:=1;
repeat
   WriteLn(f1(i):6:3);
   i:=i+1;
until i>x2;
ReadLn;
end.

Например, задавая х1= -10
                               х2= 10
                               dx = 1  получаем значения для первой функции

Записав WriteLn (f3(i):6:3); - получаем значения для третьей функции и так далее