pomogite pliz s zadachey

[dante2010]

Найти сумму всех n – значных чисел (1 ≤ n ≤ 4).

Помогите решить пожалста.

[jabbson]

Program chisla;
uses crt;

Var 
   n:  integer; {"значность" числа}

Procedure count(C:integer);
Var 
   i:  integer; {счетчик}
   res:  longint; {результат}

Begin
   res := 0;
   For i:=1 To C Do
      res := res+i;
   writeln('Сумма: ',res);
   readln;
End;

Begin {основная программа}
   clrscr;
   write('Сколько знаков: ');
   readln(n);

   Case n Of
      1:  count(9);
      2:  count(99);
      3:  count(999);
      4:  count(9999);
   End;
End.

[dante2010]

Спасибо)))