Zadanie zaliczeniowe z laboratorium Pascala i C. ZSI I. 01/02
-------------------------------------------------------------
Zadane w tygodniu 12.11.01-16.11.01.

Zad 1.

Napisz program, który policzy wartość funkcji silnia dla zadanego argumentu 
naturalnego. Ponieważ wartości funkcji silnia rosną bardzo szybko, typ integer
nie wystarczy do przechowywania wartości funkcji silnia. Dlatego należy
zaimplementować własny typ długich liczb całkowitych:
   type TLiczba = 
            record
              cyfry : array[1..N] of integer;
              ile   : 1..N
            end;
Stała N określa maksymalną liczbę cyfr długich liczb. Pole cyfry przechowuje
poszczególne cyfry liczby. Oczywiście typ poszczególnych cyfr mógłby być 
mniejszy niż integer. 
Dla policzenia wartości funkcji silnia należy wykorzystać procedurę
   procedure Mnoz(k: integer; VAR dl: TLiczba);
mnożącą krótką liczbę k przez długą liczbę dl (wynik jest przekazywany
przez parametr dl). Oczywiście można zadeklarować więcej procedur lub funkcji.

   

Uwaga:
W tym i w przyszłych zadaniach należy zwrócić uwagę na czytelnoœć i elegancję
programu (wcięcia, odpowiednie identyfikatory, komentarze).