[<SANTA>]

Умова:

Обчислити послідовності значень функцій:
Р1(х)=х
Р2(х)=(3*х*х-1)/2
Р3(х)=(5*х*х-3*х)/2
Для значень аргументу Х=0; 0,05; 0.1, … ,20


Вот прога

Program poslidownist;
var x,P1,P2,P3:real;n:integer;
begin
x:=0;
write('vvedit znachena n=');
read (n);
While x<=n do
begin
P1:=x;
P2:=(3*x*x-1)/2;
P3:=(5*x*x-3*x)/2;
writeln 'x=',x,' ','P1=',P1,' ','P2=',' ','P3=',P3;
x:=x+0.05
end
end.
пишет ошибка.Что не так?Пожалуйста мне на завтра надо сдать.СПАСИБО,