Первая производная, Задача Опции

[Гость_Манна]

Задача:

В массиве a:array [0..k] of integer хранятся коэффициенты многочлена степени k. Поместить в массив c: array [0..m] of integer коэффициенты первой производной этого многочлена.

Решение:

Код

program Pervaja_proizvodnaja;                                                
uses crt;                                                                    
const k=5;                                                                    
var
 i:integer;                      

 { Коэффициенты многочлена степени k }                                          
 a: array[1..k] of integer;

 { Коэффициенты первой производной этого массива }
 c: array[0..{m}k-1] of integer;

begin                                                                        
 clrscr;
 writeln (' Введите ',k,' элементов массива ');
 for i:=1 to k do readln (a[i]);
 for i:=1 to k do begin
   c[i]:=a[i]*(k-i);
   writeln(c[i]);
 end;
 readkey;
end.

Все исходники должны помещаться в теги CODE /CODE Т.е. ваша программа, должна быть между CODE и /CODE

Проблема:
Программа не работает.

Подскажите что-нибудь :yes: