Ребят, пожалуйста, помогите!
Составить простую программу,которая определяет однозначное или многозначное число на языке Pascal

var x:integer;beginreadln(x);if (x div 10=0) then writeln('odnozn.')else writeln('mnogozn.');end.