Pewnie Tobie chodziło aby to była dowolna liczba, np. 84328746327865432646523
A więc to proste, dziś napisze jak to zrobić, a jutro, jakbyś nie dał rady napisać sam to napisze tu(dziś już czasu nie mam
)
Zapisujesz liczbę do stringa, następnia sprawdzasz długość stringa (Count bodajże), i zaopetlasz to w for.
Co jedno przejscie pętli for zmienna licznik(integer) zwieksza się o 1, a do zmiennej suma dodaje sie aktualna liczba:
suma:=suma+StrToInt(liczba[index_pętli_for]);
potem dzielisz i tyle
Aha - typ wyniku daj jako real