помогите найти ошибку в задании

Question

program prc7; 
var i:integer; 
y,x:real; 
begin 
for i:=-10 to 10 do 
begin 
writeln ('введите число'); 
readln (x); 
y:=sqr(x)-3*x-2; 
end; 
writeln ('значение функции равно',y); 
end. 
 к задаче: найти значение функций (-10;10), у=х^2 -3х -2???

Руслана · Accepted Answer

не надо вводить Х вручную 
 
for i:=-10 to 10 do 
begin 
writeln ('введите число'); 
readln (x); 
y:=i*i-3*i-2;