Какие трёхзначные числа можно составить из цифр 0, 1, 2? решительно достроив дерево возможных вариантов.

120,102,201,210/
а что значит достроив дерево?

Program Project1;

var m:array of integer; n, i, summ:integer;

begin
  repeat
    write('n: '); readln(n);
    SetLength(m, Length(m)+1);
    m[Length(m)-1]:=n;
  until n=0;
  SetLength(m, Length(m)-1);

  n:=0; summ:=0;
  for i:=0 to Length(m)-1 do begin
    if m[i]>12 then begin
      inc(n);
      inc(summ, m[i]);
    end;
  end;

  Writeln('Result:=', summ/n);

  readln;
end.

2)

program Project1;

var n, t, res: integer;

begin
  write('N:=');readln(n);
  res:=1;
  while n>0 do begin
    t:=(n mod 10);
    if t<4 then res:=res*t;
    n:=n div 10;
  end;

  writeln('Result:=', res);

  readln;
end.

Программа:
#include <iostream>
using namespace std; 
int main()
{
    int a=5;
    int b=4;
    int c;
    cout << "Количество яблок у Васи = " << a << "\n";
    cout << "Количество яблок у Пети = " << b << "\n";
    cout << "Количество яблок у Васи и Пети вместе = " << a+b << "\n";
    c=(a+b)/3;
    cout << "Если разделить на 3-х поровну, то получится = " << c << "\n";
    return 0;
}

Результат:
Количество яблок у Васи = 5
Количество яблок у Пети = 4
Количество яблок у Васи и Пети вместе = 9
Если разделить на 3-х поровну, то получится = 3