type TArr = array[3..-2] of real; 
begin
end.