Паскаль. вообще нужна программа в которую например вводишь число 120 и она говорит это число трехзначное или например 90 это число двухзначное

Program dshvedkov;

var
  n,k:integer;

begin
  Write('n='); Read(n);
  k:=0;
  n:=Abs(n); // От минуса, иначе эта строка не нужна
  while n>0 do begin
    k:=k+1;
    n:=n div 10
    end;
  Writeln('Число ',k,'-значное')
end.

Пример
n=120
Число 3-значное