Составить простую программу,которая определяет однозначное или многозначное число на языке pascal

Var x:integer;
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.