Написать программу лёгкую в поскаль со всеми значениями

а откуда ты ?

Нашёл?

по моему я тебя нашла

program cisla;uses crt;var m,n:longint;k:integer;begin;clrscr;writeln ('введите число=');readln (n);m:=n; k:=0;while m<>0 do begin k:=k+1;m:=m div 10;end;writeln ('в числе =',k,' цифр');repeat until keypressed;end.