Question

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

Answer 1

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