3адана программа вычисления n-го элемента из ряда чисел Фибоначчи (namp;gt;2) сообразно

3адана программка вычисления n-го элемента из ряда чисел Фибоначчи (ngt;2) сообразно определению ряда: F1=1, F2=2, Fi=Fi-1+Fi-2, i = 3, 4, Сделайте тестирование программки при различных значениях N.
Program Numbers_Fib;
Var K, N, A, B, C: integer;
Begin
Writeln (введите номер N искомого числа Фибоначчи);
Readln (N);
A:=1; 1-ый элемент
B:=2; 2-ой элемент
For k:=3 to N do цикл производится для получения элементов с 3-го по N-ый
begin
C:=B+A; новый элемент, с номером k
A:=B; элемент с номером k-1 становится k-2-м элементом
B:=C; элемент с номером k становится k-1-м элементом
End;
Writeln (N,- ый элемент последовательности равен, C);
End.

Где ошибка?