Ребята помогите пожалуйста!
Выдает ошибку, что не так?
Найти значение у (линейная интерполяция)
Program int ;
var x , y : array [ 1 .. 4 ] of real ;
i : integer ; q : real ; z , a , b : real ;
begin
for i := 1 to 4 do
begin
writeln ( ‘ введите xi , yi ’ ) ;
read ( x [ i ] , y [ i ] ) end ;
read ( q ) ;
for i := 1 to 3 do begin
if ( q >= x [ i ] ) and ( q <= x [ i + 1 ] ) then begin
a := ( y [ i + 1 ] - y [ i ] ) / ( x [ i + 1 ] - x [ i ] ) ;
b := y [ i ] - a * x [ i ] ; y := a * q + b ;
writeln ( ‘ y = ‘ , y ) ; end ; end ;
writeln ( ‘ q не принадлежит интервалу ‘ )
end .