Ребят, пожалуйста, помогите! Составить простую программу,которая определяет однозначное или многозначное число на языке Pascal
Var x:integer; begin readln(x); if (x div 10=0) then writeln('odnozn.') else writeln('mnogozn.'); end.