N and N+937

{ Сколько существует таких натуральных чисел N,
для которых из двух чисел N и N+937 ровно одно будет трехзначным? }

uses crt;

var N : integer;
    count3dig : integer;
    a, b : boolean;

function getCountOfDigit(x : integer):integer;
var countOfDigit : integer;
begin
    countOfDigit := 0;
    while( x > 0 ) do begin
        inc(countOfDigit);
        x := x div 10;
    end;
    result := countOfDigit;
end;

begin
    count3dig := 0;
    for N := 1 to 100000 do begin
        a := getCountOfDigit(N) = 3;
        b := getCountOfDigit(N + 937) = 3;
        if( (a and (not b)) or ((not a) and b) ) then
            inc(count3dig);
    end;

    write('Количество чисел N, при которых только одно из (N; N+937) трехзначное: ',count3dig);
end.