Калькулятор

var
    x, y, z, ni: 0..9;
    n: 0..10000;
    ans: 0..5;
begin
    Write('x, y, z: '); ReadLn(x, y, z);
    Write('n='); ReadLn(n); ans := 0;
    while (n > 0) do
    begin
        ni := n mod 10;
        if Not (ni in [x, y, z])
        then
            Inc(ans);
        n := n div 10;
    end;
    Write('ans: ', ans); 
end.

var
    x, y, z, n, k: integer;
    s:array[0..9] of byte;
begin
    Write('x, y, z: '); ReadLn(x, y, z);
    Write('n='); ReadLn(n);
    if n=0 then s[0]:=1; 
    while n>0 do begin
      s[n mod 10]:=1;
      n:=n div 10;
    end;
    s[x]:=0;s[y]:=0;s[z]:=0;
    for n:=0 to 9 do k:=k+s[n];
    writeln(k);
end.

var
    x, y, z, ni: 0..9;
    n: 0..10000;
    checker: Set Of 0..9;
    ans: 0..5;
begin
    checker := [];
    Write('x, y, z: '); ReadLn(x, y, z);
    Write('n='); ReadLn(n); ans := 0;
    while (n > 0) do
    begin
        ni := n mod 10;
        if (Not (ni in [x, y, z]) And Not (ni in checker))
        then
        begin
            Inc(ans);
            Include(checker, ni);
        end;
        n := n div 10;
    end;
    Write('ans: ', ans); 
end.