Подсчитать R (Pascal)

program calcR;
    var
        R,N: word;
begin
    Write('Enter N: ');ReadLn(N);
    R:=1;
    while N > 0 do begin
        N:= N div 10;
        inc(R);
    end;
    WriteLn('R = ',R);
end.