uses crt;
var
a:integer;
begin
clrscr;
write('bir sayı giriniz:');readln(a);
case a of
0..9:write('bir basamaklı');
10..99:write('iki basamaklı');
100.999:write('üç basamaklı');
1000..9999:write('dört basamaklı');
else write('girilen sayı çok büyük');
end;
readln;
end.