לא למדנו מי יודע מה, אני בי"א רמה של שתי יחידות (תחילת שנה)
אם משהו לא הבין אז אני צריך לקלוט מספר שלם שלא ידוע מספר האיברים שלו ולהגיד בפלט כמה איברים יש לו ואת סכומם.
אל תלך בדרכי רשעים - צפוף שם
begin mona:=0; readln(num); while num<>0 do begin inc (mona); num:=num div 10; end;
writeln('here is the number of digits ',mona);end.