Программа вычисления значения полинома с заданными коэффициентами в данной точке — Pascal(Паскаль)

Program pr25 (Input, Output); 
Var 
A: Array [0..100] Of Real; 
N : Integer; 
X : Real;
P : Real;
i : Integer; 
 
Begin
 
WriteLn ('PASCAL: Вычисление полинома по схеме Горнера.');
Write ('Введите степень полинома N: '); 
ReadLn (N); 
WriteLn ('Введите коэффициенты полинома - A[i]:'); 
For i := 0 To N Do
Begin
Write ('A[', i, '] = '); 
ReadLn (A [i]);
End;
 
Write ('Введите значение аргумента X: ');
ReadLn (X); 
 
P := A[0]; 
For i := 1 To N Do
P := P * X + A [i]; 
 
WriteLn ('Значение полинома при X = ', X: 2: 2, ' равно ', P: 4: 2); 
 
ReadLn;
End.